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hold  now  is  printed  by  Northwest  Printing,  Inc. 
here  in  Boise  ID. 
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into  the  Public  Domain  to  find  the 
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User  Groups!  The  list  is  small,  but 
it's  growing!  Check  it  out,  there 
may  be  one  near  you! 
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Exploring 
alternate  trains 
of  thought... 


I  just  have  to  stand  back.  If  this  is 
a  theme  issue,  then  from  back  here,  I  can 
see  the  Public  Domain. 

What  is  the  Public  Domain  (PD)? 
PD  is  information,  in  this  case 
PROGRAMS!  The  PD  is  a  many 
faceted  avenue.  It  is  a  place  where 
programmers  park  some  of  their  wares 
to  be  seen  by  all;  it  is  a  source  for 
educational  programs;  it  is  an  arcade. 
PD  is  free  software. 

Well,  you  might  have  to  pay 
someone  a  copying  fee,  possibly  some 
postage,  or  maybe  download  time.  And 
some  of  it  is  only  free  to  check  out, 
meaning,  if  you  like  it  you  can  buy  it 
after  you  try  it!  This  is  what  is  known 
as  Shareware. 

Shareware  is  a  neat  concept.  If  you 
decide  you  don't  want  it,  no  biggie,  just 
erase  the  disk  and  use  it  for  something 
else.  If  you  decide  you  do  want  it,  there 
is  usually  information  in  the  program  or 
in  an  accompaning  file  that  tells  you 
what  the  Shareware  fees  are  and  who  to 
pay  them  to.  When  you  register  a 
Shareware  program  (fees  run  from 
around  $5  and  up),  you  may  receive 
more  elaborate  information,  further 
updates  and  support.  Also,  when  you 
send  in  your  fees  and  register  you  are 
supporting  the  programmer  that  wrote 
the  program. 

This  month  Rarities  is  featuring 
User  Groups.  They  are  a  great  source  of 
PD  software.  Libraries  are  also  a  good 
source.  And  programs  are  not  all  that 
exists  in  the  PD,  there  is  information  as 
well.  Take  a  look  at  this  month's 
PAPSAW.  I  ran  across  these  two  text 
files  on  our  User  Group's  Disk  Of  the 
Month  (DOM).  Originally  downloaded 
from  Q-Link,  these  two  sequential  files 
are  packed  with  information  for  the  C64 


and  C128.  Even  PRG  has  caught  the 
PD  bug!  We  have  a  good  sized 
collection  of  PD  for  the  PET,  VIC20, 
C64,  C16,  Plus/4  and  C128.  The 
madness  doesn't  stop  there;  our 
graphics,  as  always,  come  from  the  PD! 
Ok,  not  everything  is  from  the  PD, 
we  have  DOS  &  Don'ts,  Basic 
BASIC,  Archaic  Computer,  just 
Tips,  and  more! 


The  following  is  a  file  I  typed  in  on 
my  VIC20  using  one  of  the  early  early 
versions  of  Speedscript.  It  says 
nothing  of  importance,  but  I  just  wanted 
to  see  something  from  a  VIC20  laser 
printed!  Just  one  of  those  Editorial 
Liberties... 

This  is,  I  believe,  the  first  word 
processor  I  have  ever  used  on  the 
V1C20.  I  so  desperately  needed  a  WP 
back  when  Noesis,  my  C64  went  to  the 
hospital  for  his  VICII  disorder.  I  tried 
to  enter  THIS  WP  into  my  poor 
unexpanded  VIC  to  no  avail.  But,  now  I 
have  it  --  and  I  didn't  even  have  to  type 
it  in!!! 

This  is  really  cool.  I  don't  know 
how  I  ever  got  along  without  80 
columns.  This  is  22  columns  and  has 
wordwrap!  Real  amazing.  I  used  to 
only  have  a  datassette  for  use  with  my 
C64,  now  I  have  a  C128D  with  a  1764 
expanded  to  512k  and  a  1581  disk 
drive.  But  I  love  this  little  VIC,  even 
though  it  takes  up  about  the  same 
amount  of  space  as  the  C128D! 

Bye  4  now. 

Well,  on  that  note,  I  leave  you  to 
your  own  insanity  and  enjoyment  of  this 
issue! 

READV 
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I  am  a  new  subscriber  to  dieHard  and 
I  found  the  first  issue  interesting.  But  I 
have  a  problem.  I  am  looking  for  a 
mailing  label  program  that  will  sort  and 
print  by  zip  code  at  the  least.  I  also 
would  like  to  print  3  to  4  labels  across. 

Would  you  have  a  program  that 
would  work  for  me?  --  Daniel  P.  Toledo  of 
Clovis,  New  Mexico 

Datafile  for  the  C64  from  RUN 
Feb  1987  by  Mike  Konshak  and 
Masterfile  II  for  the  C128  from 
LOADSTAR  128  #14.  Both  will  sort  up 
to  five  fields  in  order  of  hierchy  as  well 
as  print  up  to  three  labels  across. 

You  might  write  to  Softdisk  or  CMD 
for  information  on  purchasing  a  copy  of 
these  issues.  Here  are  the  addresses: 

Softdisk,  P.  O.  Box  30008, 
Shreveport,  LA,  71130. 

Creative  Miav  Designs,  Inc.,  15 
Benton  Drive,  P.  O.  Box  646,  Dept.  1192, 
East  Longmeadow,  MA  01028. 


I  am  happy  to  subscribe  to  your 
publication.  I  hope  you  can  continue  for  a 
long  time.  I  liked  what  I  saw.  The  name 
says  it  all:  WE  ARE  DIEHARDS!  I  love 
my  C128  and  refuse  to  "upgrade"  when  I 
have  an  excellent  computer  now.  --  Willis 
Patten  of  Independence,  Kansas 

We're  glad  you  like  us!  We  are  hae 
to  stay  -  unless  the  sun  suddenly  goes  supa- 
nova  in  which  case,  we  might  let  our 
employees  take  the  day  off! 


This  is  great  literature.  Hurrah, 
Rah,  Rah,  Rah.  Keep  it  Coming!!!  - 
Charles  Schweiger,  Jr.  of  Baltimore, 
Maryland 


Why  did  you  stop  using  geoPublish 
to  typeset  dieHard?  I  thought  it  was 
quite  unique  subscribing  to  a  magazine  for 
and  created  on  my  favorite  computer. 
Now,  the  Macintosh  print  out  looks 
professional  and  all,  but  the  Commodore 


one  had  just  gotten  it's  new  look  and  I  liked 
it!  —  Strange  disbelieving  voice  inside 
Brian's  head. 

We  didn't  stop  typeseting  dH  on  a 
C128  using  geoPublish.  We  just  use  a 
laser  printer.  We  send  each  issue  on  disk 
in  the  form  of  geoPublish  files  to 
Douglas  Bober  in  Allison  Park, 
Pennsylvania,  who,  1  believe,  uses  a  C64,  a 
1571,  and  an  HP  Laerjet  U  to  print  out  our 
masters.  We  do  a  bit  of  overnight  mailing 
and  Fed-Exing  each  month.  Don't  you 
think  he  does  a  great  job? 

Yes,  I  do... 


REftDV. 


TIPS 


compiled  by  R.  Scot  Derrer 

In  reference  to  a  tip  in  the  last  issue,  here  is  the 
tip  again,  revamped  with  further  explanation. 
Some  programs  written  for  the  C64,  before  the 
advent  of  the  C128,  will  not  boot  on  the 
C128/C128D  when  in  64  mode.  Here's 
something  to  try:  In  C64  mode,  press  the 
CAPS/LOCK  icey  down.  Now  try  loading  and 
running  the  program  with  the  problem,  it  just 
may  work  now.  The  CI 28  has  a  different 
value  in  memory  location  1  than  a  real  C64 
unless  the  CAPS/LOCK  is  pressed  down. 
Memory  location  1  is  part  of  a  built-in  I/O 


port  on  the  CPU  and  is  used  to  control  datasette 
and  memory  bank  switching.  On  the  C64,  only 
6  of  the  8  bits  are  used  (bits  7  and  8  are  0) 
whereas  on  the  C128,  all  8  bits  are  used.  The 
value  in  memory  location  1  on  the  C64  is  119. 
On  the  C128  when  the  CAPS/LOCK  key  is  up, 
the  value  in  this  location  is  173.  Pressing  this 
key  down,  the  value  is  119.  --  R.  Scot  Derrer 


To  assist  in  'seeing'  the  various  ports  on  the 
back  of  your  computer  when  fiddling  with 
cables,  use  a  Dymo  Label  Maker  and  create  a 
plastic  label  strip  with  the  names  of  the  ports 


proportionally  spaced  (you'll  have  to  measure 
this  so  it  lines  up).  Stick  this  on  the  back  top 
surface  of  your  computer  for  easy-to-read  port 
names.  -  Walter  C.  Erbach  of  Lincoln, 
Nebraska 


Do  not  validate  any  disks  with  RELative  files, 
the  validation  will  destroy  them.  Never  validate 
any  of  your  Commercial  disks  either.  -  Marcus 
Krejci  of  Rural  Retreat,  Virginia 

REflDV. 
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GARY  LABEL  MAKER  V4 

by  John  S.  Gary 

Reviewed  by  R.  Scot  Derrer 


KEV: 

w  «  #  M  w  Excellent 


M^  w  «  w  Great 


«  w  w  Good 

»  »  Poor 

*  Don't  Even  Bother 


Although  this  Public  Domain 
Shareware  program  has  been  around  for 
several  years  now,  its  usefulness  and 
functionality  merit  a  current  review.  I 
must  confess,  I  used  Gary  Label 
Maker  V4  (GLMv4)  for  some  time 
before  I  sent  in  my  Shareware  fee  two 
years  ago.  After  years  of  practice, 
procrastination  comes  so  easy.  At  that 
time,  the  president  of  Boise's  local  user 
group,  TVBUG,  Doug  Parsons, 
inspired  me  to  come  clean  like  he  did. 
Upon  sending  my  $10,  I  received  the 
updated  version,  several  miscellaneous 
programs,  graphics,  borders,  labels, 
and  a  lengthy  letter  from  John  Gary. 
Plus  I  found  out  he  now  has  an  AMIGA 
version  of  this  program  available  --  well 
worth  more  than  the  $10  and  my 
conscious  carries  less  guilt. 

With  GLMv4  you  can  easily 
create  one-up  15/16"  x  3  1/2"  labels 
with  Printshop  2  and  3  block  graphics 
and  PS  compatible  graphics.  (One-up 
labels  are  single  column  labels  as 
opposed  to  sheets  with  3  and  4  labels 
across  the  page).  GLMv4  now  loads 
Newsroom         and         Printmaster 


graphics  without  having  to  convert  them 
into  PS  files  and  doing  a  load/save 
dance  into  Printshop  to  make  them  true 
PS  graphics.  The  graphics  print  on  the 
left  side  of  the  label  with  text  on  the  right 
side.  There  are  7  character  sets  available 
and  they  can  be  mixed  and  matched  with 
29  characters  across  each  of  the  7  text 
lines  in  the  design  area.  In  addition  to 
the  normal  text  size,  there  are  also  three 
enhanced  sizing  styles  available:  double 
length,  double  height,  or  a  combination 
of  both.  With  access  to  the  Commodore 
graphics  character  set,  you  can  design 
borders,  graphics,  and  get  fairly 
creative. 


S=SrtUE  LABEL  P=PRIHT     LABELS 

L=LOnD  LfiBEL  D=DIRECTORV^    ^ 

C=CUST  CHBR  XVZ=5BL,SIZE 

F  =  CHflR  FOHTS  =    CBM.TEEll.Tex 


OH  LAbLL 

fZ  =  HEH  ORrtPHIC 

F4  =  ERfiSE  TEXT     iv. 

re  =  TEXT  TO  LABEL  J 

F8  =  CLEftR  LABEL    » 


Printer  compatibility  is  somewhat 
limited,  but  has  some  versatility  with 
experimentation  and  awareness  of  the 
'Laws  of  Your  Printer'.  There  are  three 
printer  drivers  available:  1)  Star  lOX/SG 
10,  2)  NXlO/Epson  and  compatibles 
(both  1  and  2  print  quad  density),  and  3) 
Misc.  printers.  The  miscellaneous  driver 
supports  double  density  and  standard 
n/72  line  feeds.  Printers  must  be  device 
4  and  support  Transparent  Mode  in  the 
interface,  unless  it's  a  Micrographics 
interface  which  has  a  special  setup 
requirement  and  has  to  be  device  5.  Dip 
switching  may  be  successful  outside  of 
these  parameters.    The  documentation 


addresses  this  in  more  detail. 

GLMv4  is  very  user  friendly  and 
is  easy  to  leam  and  use.  Documentation 
is  thorough  and  concise  (it's  on  the 
disk).  The  sample  label,  shown  upon 
booting  up,  contains  most  of  the 
commands  you  need,  just  print  it  for 
easy  reference.  A  new  feature  is  the 
ability  to  'blend'  graphics.  After  loading 
the  first  graphic,  you  may  superimpose 
another  graphic  on  top  of  it.  MuUicolor 
labels  are  possible  by  creating  separate 
label  component  files.  By  changing 
your  ribbon  for  each  color  and  running 
the  same  labels  through  to  print  these 
different  components,  you  can  create 
some  fun  labels.  The  one  problem  I 
have  had  is  when  printing  short  strips  of 
labels,  there  is  an  occasional  skipping  in 
printing.  This  is  due  to  the  sensitivity  of 
running  one-up  labels  through  the 
printer.  You  just  cannot  run  a  short  strip 
of  labels  through  and  expect  perfection. 
The  solution  is  to  load  the  printer  with 
labels  still  attached  to  the  labels 
remaining  in  the  box  and  set  the  box  of 
labels  below  the  printer,  adding  the 
proper  weight  and  tension.  Flawless 
labels  require  constant  weight  and 
tension  ~  throw  in  a  new  printer  ribbon 
too.  Fun  Graphics  Machine  and 
GLMv4  can  be  used  together  to  make 
labels  as  their  files  are  compatible. 

For  a  copy  of  Gary  Label  Maker 
V4,  send  $10.00  to  John  S.  Gary,  206 
Crestline  Dr.,  Lafayette,  LA  70507. 
And  as  always  ~  pay  your  Shareware 
fees! 


REflDV. 
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USER  GROUPS 

In  the  past  fourteen  years  of  Commodore  mania  (yes  14  years)  there  have  been  many  user  groups 
to  come  and  go  and  quite  a  few  of  these  groups  still  exist.  Having  less  members  perhaps,  but  still 
supporting  and  advocating  the  use  of  8-bit  computers  with  DTP-newslcttcrs  (DeskTop  Publishing), 
vast  PD  software  libraries,  monthly  meetings.  Special  Interest  Groups  (SIGs),  disks  of  the  month, 
educational  classes  and  workshops,  bulletin  board  systems  (BBS's),  and  just  being  friendly  and  helpful. 

I  find  it  fascinating  how  the  different  computer  and  software  companies  have  necessitated  the 
creation  of  various  support  groups  by  their  customers,  and  all  for  different  reasons.  The  society/media 
sculptors  define  the  90's  as  the  Information  Decade.  Not!  It's  been  going  on  for  some  time  and  they're 
just  waking  up.  Anyway,  as  part  of  our  support  to  the  8-bit  community,  dieHard  will  inform  you  of 
the  various  user  groups  still  kickin'.  Once  a  year  we  will  publish  a  complete  list  of  the  groups  we 
know  to  still  be  active.  If  you  know  of  a  Commodore  or  8-bit  user  group,  either  let  them  know  about 
dieHard  and/or  let  us  know  about  them.  Here  is  a  list  of  user  groups  that  we  know  are  up  and 
running. 


Bloomington-Normal  Computer  Users  Group 
PO  Box  1058 
Bloomington,  IL  61702-1058 

Catalina  Commodore  Computer  Club 
PO  Box  32548 
Tucson,  AZ  85751-2548 

Commodore  Users  of  Bartlesville 
Fred  Mayes 

2524  S.W.  Mountain  Road 
Bartlesville,  OK  74003 

Dayton  Area  Commodore  Users  Group 
Elwood  Dornbusch 
2040  Turnbull  Road 
Dayton,  Ohio  45431 

Harrisburg  Area  Computer  Group 
721  South  29th  Street 
Harrisburg,  PA  17111 

Miami  Individuals  with 
Commodore  Equipment 
c/o  11110  Bird  Road 
Miami,  FL  33165-4417 

Treasure  Valley/Boise  User  Group 
PO  Box  6853 
Boise,  ID  83707-6853 


Kid's  Computer  News 

c/o  St.  Hilda's  &  St.  Hugh's  School 

619  West  114  Street 

New  York,  NY  10025 


Carson  City  Computer  User  Network 
712  Hot  Springs  Road 
Carson  City,  NV  89706 

Champaign-Urbana  Commodore  Users  Group 

PO  Box  716 

Champaign,  IL  61824-0716 

Coos  Computer  Club 

2175  Everett 

North  Bend,  OR  97459-2336 


First  State  Commodre  Club 

PO  Box  1313 

Dover,  DE  19903-1313 


Memphis  Commodore  Users  Group 
PO  Box  34095 
Memphis,  TN  38134-0095 

TPUG 

5334  Yonge  Street,  Box  #116 
Willowdale,  Ontario  M2N  6M2 
(416)  253-9637 

64um 

Fresno  Commodore  User  Group 

PO  Box  16098 

Fresno,  CA,  93755 

Busy-Bee  User  Group 
Theodore  E.  Seitz,  Editor 
3  Paseo  Cuacha  de  Toro 
Arivaca,  AZ  85601-0003 


Send  us  your  newsletters  and  put  us  on  your  mailing  lists!  If  you  support  the  commodore  8bit 
world  let  us  know  and  we'll  put  you  in  the  spot  light!  Send  us  a  letter  and  let  us  know  what  you  do 
and  we'll  put  you  in  the  LIST.  dieHard,  ATTN  Rarites,  POBox  392,  Boise,  ID  83701-  0392. 
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More  Direct  Mode 


REMark:  When  you  see  <  >  around  some  letters, 
this  simply  means  to  press  the  key  represented  by 
this  symbol,  i.e.  <SHIFT  ARROW  UP>  means  press 
the  shift  key  and  arrow  up.  When  you  see  [  ] 
around  commands,  it  means  to  enter  a  keystoke 
combination  in  quote  mode,  i.e.  "[2 
<SHIFT><SPACE>]"  means  to  press  and  hold  the 
shift  key  and   then  press   the   space  bar  twice. 


PRINTing  Variables  -  A  Primer 

Last  month  I  discerned  between  Direct  Mode  (entering 
commands  from  the  iceybaord)  and  BASIC  mode  (where  a 
program  enters  the  commands).  Your  computer  is  on, 
staring  back  at  you.  I  want  to  finish  the  discussion  about 
Direct  Mode  by  discussing  variables.  Variables  are 
chameleons  in  nature.  In  mathematics,  they  represent  a 
quantity  that  may  change  under  different  conditions.  We  are 
going  to  use  variables  as  stand-ins  or  stunt  doubles.  The 
familiar  formula,  A+B=C,  will  suffice  for  our  needs  with 
A,B,  and  C  being  variables.  The  variable  A  will  equal  the 
number  3,  B  will  equal  the  number  4.  Reviewing 
calculations  from  last  month,  type  this  in  Direct  Mode 
(Remember  to  press  <RETURN>  after  each  example) : 


Again,  your  computer  should  display  the  number  7.  PRINT 
A+B  is  essentially  the  same  as  PRINT  3+4,  except  we  are 
using  variables  instead  of  numbers  with  assigned  values  to 
the  variables.  Let's  try  it  with  C  as  a  variable. 


A=5 :B=6:C=( A+B ): PRINT   C 


The  result  on  your  screen  should  be  11.  For  our  purposes, 
these  variables  are  numeric  as  their  values  can  only  be 
numbers. 


STRING  Variables 

Another  kind  of  variable  is  the  string  or  alphanumeric 
variable.  The  symbol  S  is  used  to  represent  a  string  which 
tells  the  computer  the  variable  contains  alphanumeric 
characters.  A  string  is  one  or  more  characters  between 
quotes.  The  character  can  be  a  letter,  number,  space,  or  a 
graphic  character  and,  generally,  no  calculations  are  made 
with  alphanumeric  characters.  The  string  variable  represents 
whatever  is  in  the  'string  of  characters'  between  the  quotes. 


C$="I    CAN    PRINT   STRING   VARIABLES" : PRINT  C$ 


PRINT    3+4 


The  answer  should  be  7.  Now  we  will  try  it  using  variables. 
Let's  PRINT  A+B,  which  will  perform  a  calculation  and 
provide  the  resulting  answer.  Type  the  following  (I'll 
explain  the  colons  later): 


Now  you  can  make  your  computer  print  alphanumeric 
characters  and  the  results  of  calculations.  If  we  were  to 
combine  these  concepts,  it  could  look  like  the  following 
example. 


A=4 ; B=5 : T$="TIMES " : E$  =  "EQUALS " i PRINTA; T$ ; B; E$  ;  A*£ 


A=3:B=4:PRINTA+B 


Note  the  use  of  the  colon  and  semicolon.  Hopefully  your 
computer  printed  "4  TIMES  5  EQUALS  20".  The  colons 
(:)  allow  you  to  put  more  than  one  BASIC  command  on  one 
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line.  The  semicolons  (;)  allow  you  to  string  together  characters  next  to 
each  other.  If  the  BASIC  line  is  longer  than  your  screen  width,  just  let  it 
wrap  around  and  don't  press  <RETURN>  until  you  have  typed  the  whole 
line  in. 


BASIC  History  101 

The  term  BASIC  stands  for  Beginner's  All-Purpose  Symbolic  Instruction 
Code.  It  was  developed  in  1964  at  Dartmouth  College  under  the  direction 
of  John  Kemeny  and  Thomas  Kurtz.  I  just  read  in  Random  Magazine 
that  Mr.  Kemeny  died  on  December  26, 1992  at  the  age  of  66.  Along  with 
his  co-development  of  BASIC,  he  was  also  a  research  assistant  to  Albert 
Einstein  and  worked  on  the  Manhattan  Project.  The  version  of  Microsoft 
BASIC  we  use  on  Commodore  computers  is  more  powerful  than,  but  still 
merely  an  enhancement  of  this  29  year  old  computer  programming 
language.  I  was  in  fifth  grade  then.... 


As  its  name  implies,  BASIC  was  intended  to  be  simple  to  learn, 
inexpensive  to  implement  and  use,  and  interactive  with  immediate 
response  to  its  users.  Being  a  typed,  alphanumeric  language,  BASIC 
must  be  converted  by  the  computer  into  a  language  it  can  understand, 
machine  language.  The  computer's  operating  system  is,  shall  we  say, 
transparent  to  us,  the  users.  This  means  the  computer  does  its  many  tasks 
while  the  user  of  the  computer  does  his  or  her  own  tasks.  Part  of  the 
computer's  operating  system  is  a  BASIC  interpreter  which  sits  patiently 
awaiting  your  'commands'.  A  translator  is  very  similar  to  an  interpreter  in 
that  it  also  converts  a  programming  language  into  machine-type  language. 
This  translated,  machine-type  language  must  then  be  converted  by  the 
interpreter  into  actual  machine  language. 


Beginning  BASIC  Programming 

So  far,  all  of  the  examples  we  have  tried  using  PRINT,  have  been  in 
Direct  Mode.  To  convert  any  of  the  PRINT  statements  to  a  BASIC 
program  is  easy.  You  simply  put  a  line  number  in  front  of  the  command. 
This  line  number  followed  by  a  BASIC  command  or  series  of  BASIC 
commands,  tells  your  computer's  operating  system  it  is  dealing  with  a 
BASIC  program.  A  BASIC  program  can  be  one  line  to  thousands  of  lines 
long.  The      processing      philosophy      of      a      program      is 

INPUT->PROCESS->OUTPUT.  Type  this  one-line  program  in.  This 
is  also  known  as  'coding  a  program'  and  the  BASIC  statement  and/or 
command  is  known  as  'code'. 


10  PRINT "YOU  ARE  NOW  A  BASIC  PROGRAMMER" 


When  you  press  <RETURN>,  nothing  happens.  You  now  have  several 
options.  The  line  number  10  tells  the  computer  it  is  a  BASIC  program 
line.  The  operating  system  knows  to  store  this  program  in  temporary 
memory  and  keep  it  there  until  you  tell  it  what  to  do  next.  Type  LIST  and 
press  <RETURN>.  This  will  display  or  list  your  program  on  the  screen. 


Now  you  can  EDIT  your  program,  if  you  choose  to.  Editing  is 
correcting  or  modifying  the  code.  You  use  the  CRSR  keys  to  move  the 
cursor  to  the  line  of  code  you  want  to  change.  The  Insert/Delete 
<INST/DEL>  key  is  used  to  delete  or  add  code.  You  may  also  type  over 
existing  code.  After  editing,  remember  to  press  <RETURN>  or  the 
operating  system  will  not  recognize  any  of  the  changes.  For  example,  I 
made  the  following  change  by  placing  the  cursor  on  the  space  between 
the  "w"  in  the  word  "now"  and  the  word  "a"  and  pressing  the  <DEL> 
key  four  times. 


10  PRINT "YOU  ARE  A  BASIC  PROGRAMMER" 


LIST  the  program  again  if  you  like.  Another  option  at  this  point  is  to 
RUN  the  program.  Type  RUN  and  press  <RETURN>.  The  computer 
should  display  the  text  within  the  quotes.  If  you  somehow  made  a 
mistake,  an  error  message  will  be  displayed.  You  can  edit  the  code  to 
correct  the  mistake.  A  fun  piece  of  code  to  add  at  this  point,  would  be  a 
command  to  clear  the  screen. 


5   PRINT" [<SHIFT><CLR/HOME> ] " 


Remember  to  press  <RETURN>  and  then  either  RUN  or  LIST  the 
program.  You  now  have  two  lines  of  code.  When  you  RUN  the 
program  the  computer  will  start  with  the  first  line  of  code  and  exicute  it 
(clear  the  screen),  then  move  on  to  the  next  line  of  code  and  exicute  it 
(print  the  text). 


Other  options  at  this  point  are  to  SAVE  your  program  to  a  permanent 
storage  unit  such  as  a  diskette  or  cassette  or  type  NEW  and  then  press 
<RETURN>  to  clear  out  the  temporary  memory  where  the  BASIC 
program  is  stored.  You  can  also  LOAD  another  program  into  temporary 
memory  or  turn  off  your  computer. 


I  realize  that  terms  like  temporary  memory  and  machine  language  may 
be  unfamiliar  to  some  of  you.  If  you're  so  inclined  to  educate  yourself 
further;  the  library,  used  book  shops,  and  thrift  stores  are  a  wonderful, 
inexpensive  source  of  math,  computer,  and  programming  books.  In  the 
next  issue,  I'll  continue  with  more  in-depth  BASIC  programming, 
operating  system  junk,  error  messages,  and  whatever  the  Editor  misses. 
Meanwhile,  the  beginning  programmers  are  now  initiated  as  Neophyte 
Hackers  in  the  0  degree  and  the  experienced  programmers  are  probably 
having  their  patience  tested.  Be  seeing  you. 


REftDV 
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CMD  Sets  Pace  for  1993  with  New  Products  and  Lower  Prices 


CMD  Offers  One-Stop  Shopping  to  Commodore  Owners 

Effective  f^^ay  1,  1993  Cm  acquired  all  rights  to  RUN  software  and  fias    run  Mag,- back  issues       Microprose  games  Blank  disks -3.5"  &  5.25" 

purchased  all  items  from  their  inventory.  As  result,  CMD  will  be  offering  one  of 

the  largest  selections  of  Commodore  64/1 28  software  and  hardware  available 

today.  CM  D's  decision  reinforces  its  commitment  to  C-64/1 28  owners  worldwide. 

It  is  our  hope  that  we  can  offer  'One  Stop  Shopping"\o  Commodore  owners.  If 

we  don't  have  it. ..we  can  probably  find  it!  Here  is  a  partial  list  of  products.  For  a 

complete  list  call  or  write  for  a  free  catalog. 


RUN  Mag.-  back  issues 
RUN/ReRUN  software 
Abacus  books  &  software 
GEOS  2.0  &  applications 
Timeworks  Software 
Superbase  &  Superscript 
SOGWAP-Big  Blue  Reader 


Microprose  games 
Xetec  Printer  Interfaces 
Electronic  Arts  Games 
Skyles  Electric  Works 
Dr.  T's  Music  Software 
Power  Supplies 
Miscellaneous  Cables 


Blank  disks -3.5 
Misc.  10  Chips 
RAM  Chips/SIMM's 
...  and  MUCH  More 


CMD  Utilities 

FCOPY+  A  two  drive  file  copier  featuring  1541,71,81,  REU  and  CMD 
device  compatibility  whicti  is  capable  of  copying  any  size  PRG,  SEQ, 
REL,  USR  File.  NEW  features  include: 

Scratch/Unscratch  Files  'Copy/Delete  C1 28  Boot  Sector'  Disk/Partition 
UnNew  •  File  Compare  •  Access  DOS  Commands  thru  Menus  •  Lock/ 
Unlock  Files  •  Format  Disk/Partition  •  Create/Remove  Sub  Directories  • 
Rename  File/Partition/Header  •  Change  Current  Partition/Subdirectory 
MCOPY  A  two  drive  whole  disk/partition  file  copier  which  supports  CMD 
storage  devices  and  Commodore  1541,  71,  81  disk  drives. 
BCOPY+  A  powerful  backup/restore  utility  which  backs  up  any  CMD 
device  or  partition  to  a  1541,71,81  drive  or  CMD  FD  Series  floppy  drive. 
This  new  version  incorpoales  the  ability  to  dump  an  entire  CMD  device 
to  an  HD  Series  hard  drive. 

FIND  Searches  specified  partitions  on  CMD  devices  for  files  that  match 
a  user  defined  filename  pattern.  Includes  handy  printer/screen  toggle. 


A  Powerful  and  Unique  Collection  of  Disk  Utilities 
for  Commodore  and  CMD  Storage  Devices 

DIR  SORT  Alphabetizing  utility  for  1541,71,81  drives  and  all  CMD 
storage  devices  makes  it  easy  to  organize  large  directories. 
MCOMPARE  Two  drive  disk  compare  utility  makes  it  easy  to  evaluate 
the  accurancy  of  a  CMD  partition  against  a  disk  copy. 
FOLLOW  LINKS  Helps  to  locate  and  remove  corrupt  tiles. 
CONVERT  41<>71  Converts  between  1541  &  71  formats.  Allows 
increased  storage  on  1541  disks  after  MCOPY'ing  to  1571  or  partition 
ZAP  REU/DACC  Clears  memory  in  REU  or  RAMLink  DACC  partition 
HD  POWER  TOOLS  Allows  editing  of  CMD  Device  Partition  Table 

REBUILD  PDIR  Helps  to  recover  partitions  attercompletely  recreating 

the  system  on  CMD  Devices. 

Shareware  Utilities  Included: 

DEDIT64/1 28,  SuperDEDIT64/1 28  Sort  or  manually  edit  directories 

subdirectories  and  partitions  on  1 541 ,71 ,81  drives  and  all  CMD  Devices 


NEW  LOWER  PRICES 


"RAMLink 

RAMLink  with  0  MB  RAMCard  $199.95 

RAMLink  with  1  MB  RAMCard  $229.95 

RAMLink  with  4  MB  RAMCard  $329.95 

Real-Time-Clock  for  RAMCard  (Optional)  $20.00 

RAMLink  Battery  Back-up  (Optional)  $24.95 

1  MB  &  4  MB  SIMM  Modules  CALL 

Parallel  Cable  (RAMLink  lo  HD)  $1 4.95 
RAMDrive 

RAMDrive  1  MB  $249.95 

RAMDrive  2  MB  $299.95 
HD-Series  Hard  Disk  Drives 

HD-40,  (Special  Edition  w/  85  MB  Drive)  $495,00 

HD-1 00,  (Special  Edition  w/ 1 70  MB  Drive)  $595.00 

HD-200,  (Special  Edition  w/  245  MB  Drive)  $695.00 
FD-Series  3.5",  Floppy  Disk  Drives 

FD-2000  (800K  and  1 .6  MB  Famats)  $1 79.95 

FD-4000  (BOOK,  1.6  MB  and  3.2  MB  Famals)  $249.95 

FD  Real-Time-Clock  Option  $20.00 

Box  of  1 0,  High  Density  Disks  (1 .6MB)  $1 4,95 

Box  of  1 0,  Enhanced  Density  Disks  (3,2  MB)  $60,00 

Single  ED-Disk  (3,2  MB)  $8.00 
Jiffy  DOS  (Spedly  Computer/drive  model  S  serial  number) 


C64-Sys1em  (Computer  &  drive) 

SX-64  System  (Computer  &  Internal  1541) 

C-128  System  (Computer  &  drive) 

128-D System  (Computers  Internal  1571) 

Additional  Drive  ROM's 

Software  Products 

geoMakeBoot  (Makes  bootable  copies  ol  GEOS  64/1 28) 

galeWay/64  or  1 28  (GEOS  Desktop  Replacement) 

geoCanvas  (Alietnative  GEOS  Paint  Program) 

Collette  Utilities  (Handy  GEOS  Utilities) 

Perfect  Print  LQ  for  GEOS  (Font  Coll.182, 49  Fonts) 

Font  Collection  3(17  Fonts  and  5  Borders) 

Border  Font  Collection  1  (24  Border  Fonts) 

JiffyMON  -  ML  Montor  for  JiffyDOS/64 

CMD  Utilities  ■  Collection  of  Powerful  Disk  Utilities 

Miscellaneous  CMD  Products 

SwiftLink,  RS-232  Interface  (300  to  38,400  baud) 

SwiftLink  Cable  (DB9  to  DB25) 

SID  Symphony  Stereo  Cartridge  w/  Playei 


All  prices  and  specifications  subject  to  chanoewitho 


$49,95 
$49,95 
$59,95 
$5995 
$2495 

$12,95 
$29,95 
$29,95 
$19,95 
$4995 
$19,95 
$19,95 
$19.95 
$24.95 

$39.95 
$9.95 
$39,95 
without  notice 
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High  Performance  SCSI  Hatxl  Drive  for  the  C64  &  C128 

HD  Series  Hard  Drives  are  available  in  capacities  up  to  200  fvlB,  are  fully  partitionable,  and 
can  emulate  1541,  1571,  &  1581  disks  while  Native  partitions  utilize  IvISDOS-style 
subdirectories.  HD's  connect  easily  to  the  serial  bus  or  parallel  via  RAIvlLink.  Includes  built- 
in  JiffyDOS,  SWAP  feature  and  Real-Time-Clock.  HD  Series  Drives  offer  superior 
compatibility  with  most  commercial  software  including  BBS,  Productivity  and  GEOS.  And 
with  new  pricing,  HD  Series  drives  offer  the  lowest  cost/f^B  of  any  C64/1 28  storage  device 


MMink 


Power  Backed  Expandable  RAM  Disk  and  Interface 

The  fastest  possible  form  of  storage,  RAMLink  provides  instant  access  to  files  and  retains 
data  while  your  computer  is  turned  oft.  Easy  to  use  and  expandable  upto  1 6  MB,  RAMUnk 
utilizes  the  same  powerful  operating  system  found  in  the  HD.  RAMLink  also  offers  built- 
in  JiffyDOS,  SWAP  feature,  reset  button,  enable/disable  switch,  pass-thru  port  and  RAM 
port  for  REU/GEORAM  use.  Ideal  for  those  requiring  maximum  speed,  expandability  and 
compatibility  with  all  types  of  software  and  hardware  including  GEOS. 
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High  Capacity  1.6  and  3.2  MB  3.5"  Floppy  Disk  Drives 

The  FD-2000  and  FD-4000  diskdrives  utilize  today's  Iatest3,5  inch  technology.  FD-2000  s 
support  800K  (1 581  style)  and  f  .6  MB  (High  Density)  formats,  while  the  FD-4000's  offer 
support  for  the  3.2  MB  (Enhanced  Density)  format  as  well.  Fast  and  reliable,  they  support 
1 541 , 1 571  and  1 581  style  partitions.  Native  Mode  partitioning  and  can  actually  read  and 
write  1581  disks.  FD's  feature  built-in  JiffyDOS,  SWAP  button  and  optional  RTC.  High 
capacity,  speed  and  compatibility  make  the  FD  right  forevery  application,  including  GEOS 


JlflA|.l^^^~    Speeds  up  disk  access  by  as  much  as  1500%  while 
£!!£JU£a^     maintaining  100%compatlbilitywithcommercialsoftware 

•  Speeds  up  Leading,  Saving,  Verifying,  Fonnatting  and  Reading/Writing  of  PRG,  SEQ,  USR  and  REL  files 

•  Built-in  DOSWedgeplus17additonalfeaturesincludinglilecopier,textdump,printertoggle,andredefinablefunctionkeys 

•  ROM  upgrade  installs  easily  into  most  computers  and  disk  drives.  Supports  C-64, 64C,  SX-64,  C-128, 128-D,  1541, 
1 541 C,  1 541  -11,1 571 , 1 581  and  more.  1 28  system  supports  both  64  and  1 28  modes  and  upgraded  Kernal  routines 


Shipping  and  ttandling  Charges: 
Hard  Drives:  UPS  S15,(X);  2nd-day  $25,00;  AK,  HI,  Canada  $35,00 
RAMLink,  RAMDrive,  FD;  UPS  S9,0a,2nd^iayS16,O0,;AK,HI,CanadaS2O,0O 
JDOS,SID,SL:UPSS5,50,;2dayS10.00,;AK,HI,Canada$15,00GBool,Col. 
CMD  Ulils:  1st  aass  Mail  S2,00;  Canada  S5,00 

All  Foreign  Orders;  Call 
Payment  MC.  Visa,  Money  Order  ct  Bank  ChedtCOD  shipmenB  add  S5,00 
COD'S  may  require  advanced  deposit.  Persona!  checks  are  treld  la  3  wks. 


Creative  Micro  Designs,  Inc. 

P.O.  Box  646,  E.  Longmeadow,  MA  01028 
^|W  ^m^  Orders:  (800)  638-3263 
■  ^■alj  Info:  (413)525-0023 
%irlrll#  BBS:        (413)525-0148 

OtliceHours:9AMlo5PM,  EST,  Monday  thru  Friday, 


The  Commodore  Cannot  Survive  on  Powerful  Hardware  Alone... 
Now,  CMD  Offers  a  Wide  Selection  of  Popular  and  Hard-to-Find  C-64/128  Software 


Productivity 


OmniWriler  with  OmniSpell 

Word  Writer  6 

Super  Script/64 

Super  Script/128 

Busidata 

Data  Manager  2 

Suberbase  /  64  Version  3.01 

Superbase  / 128  Version  3.01 

Busicalc3 

Calc  li 

PowerPlan  64 

SwittCalc  64 


Other  Productivity 


Cadpak  64  (Abacus) 

Cadpal<128  (Abacus) 

Chartpal<  64  (Abacus) 

Chartpak  128  (Abacus) 

RUN  Productivity  Pak  I 

RUN  Productivity  Pakii 

RUN  Productivity  Pak  iii 

RUN  Super  Starter  Pak  for  the  1541 

RUN  Super  Starter  Pak  for  the  1581 

RUN  Works 


Languages/Compilers 


$30.00 
$30.00 
$15.00 
$20.00 
$30,00 
$16.00 
$35.00 
$35,00 
$30.00 
$40.00 
$16.00 
$16.00 

$22.00 
$25.00 
$17.00 
$25.00 
$15.00 
$15.00 
$16.00 
$20.00 
$20,00 
$20,00 


BASIC  64  Conpiier  (Abacus) 

$17.00 

BASIC  128  Compiier  (Abacus) 

$25,00 

Blitzi  64  or  128  Conpiler  (Specify  64  or  128) 

$30,00 

Cobol  64  (Abacus) 

$17,00 

Fortran  64  (/Abacus) 

$17,00 

Pascal  64  (Abacus) 

$17,00 

Big  Blue  Reader  NEWIII  Version  4.1 

$39,00 

Misc.  Software 

RUN  Story  Disk 

$10,00 

Sky  Travel 

$20,00 

Mathmaze 

$17,00 

RUN  Educational  Pak  Voi,  1  or  2  (Specify) 

$12,00 

AcroJet 

Airborne  Ranger 
Atomino 

Ballistix 

Blackjack  Academy 

Blood  Money 

ChompI 

Conflict  in  Vietnam 

Elvira,  Mistress  of  the  Dark 

Menace 

Marble  Madness 

Navy  Seal 

Red  Storm  Rising 

Rings  of  Medusa 

RUNC128Funpak 

RUN  C64  Gamepak 

RUN  C64  Strategy  Games  I 

RUN  C64  Strategy  Games  II 

Silent  Service 

Skate  or  Die 

The  Amazing  Spider-Man 

The  President  IsMisingI 

The  Three  Stooges 

Tie  Break  Tennis 

Total  Eclipse 

Ultima  III 

Ultima  IV 

Ultima  V 

Wizardry  V 


lUlusic/iVliDi  Software 


Dr,  T  KCS64  &  fulodel-T  Midi  Interface 
Dr,  T  KCS128&  Modei-T  Midi  interface 
Dr,  T  Algorithmic  Composer 
Dr.  T4-0PMIDi  Ed/Lib 
Dr.  TCZ-RiderMiDi  Ed/Lib 
Dr,  TDX-7MiDi  Ed/Lib 


$12,00 
$16,00 
$17,00 
$13,00 
$12,00 
$15,00 
$10,00 
$16,00 
$13,00 
$15,00 
$13,00 
$10,00 
$16,00 
$16,00 
$15,00 
$15,00 
$15,00 
$16,00 
$16,00 
$13,00 
$15,00 
$10,00 
$10,00 
$16,00 
$10,00 
$17,00 
$22,00 
$22,00 
$24,00 

$105,00 
$149,00 
$20,00 
$20,00 
$20,00 
$20,00 


IVIodems/Terminal  Software 


Dialogue  128 

SpeedTerm 

Commodore  1660/Modem  300 

Modem  300  w/Speedterm 

BOCA  2400  Baud  Modem 

BOCA  2400  w/SwiftLlnk  and  Cable 

BOCA  14,4K  Baud  Modem 

BOCA  14.4K  w/SwiftLink  and  Cable 


lUlisc.  Hardware 


$29,00 

$25,00 

$10,00 

$16,00 

$79,00 

$119,00 

$249,00 

$279,00 


GeoCable  Compatible  Print  Cable  $20,00 

Xetec  Super  Graphix  Jr,  $45,00 

Xetec  Super  Graphix  Sr.  $60,00 

2+1  Cartridge  Port  Expander  $45,00 

C-1351  Mouse  $36,00 
C-64,  C-64C  Power  Supply  (Lifetime  Warranty)$39,00 

C-1 28  Power  Supply  $45,00 

1581/1541-11  Power  Supply  $25,00 


Abacus  Boolcs 


1 571  Internals  •  Anatomy  of  the  1 54 1  •  C64  Tricks  &  Tips 
C128  Conpuler  Aided  Design  •  C128  BASIC  Training 
Guide  Graphics  Book  for  the  C64  •  Printer  Book  for  the 
C64  •  Ideas  for  Use  on  Your  C64  $12.00  Each 


ReRUN  Dislcs 


(Any:  1  for  $10,  3  for  $18,  6  for  $24) 
1985;  Spring,  Summer,  Fall 

1986.S9,  91,92:  Jan/Feb,  Mar/April,  May/June,  July/ 
Aug,Sept/Oct,  Nov/Dec  1990:  Jan/Feb,  Mar/April,  May, 
June/July,  Summer  Spcl,.  Aug/Sept/Oct,  Nov/Dec 


RUN  Bacic  issues 


(Any:  3  for  $10,  6  for  $18,  12  for  $25) 
1988:  Jan,  Feb,  March,  April,  May,  June,  July,  Aug 
1989:  Jan,  Feb,  March,  May,  June,  July.  Aug,  Sept,  Oct 
1990:  Jan,  May,  Juna'July,  Dec  1991:  Jan/Feb,  June, 
Sept/Oct1992:  Jan/Feb,  Mar/April,  May/June,  July/Aug, 
Sept/Oct,  Nov/Dec  Special  Issue:  1987,  1988,  1989 


GEOS64V2,0  $40,00 

GEOS  128V2,0  $45,00 

GEOChart $29,00 


geoCalc64 $40,00  geoPublish  $40,00 

geoCalc  128 $45,00  geoProgrammer $45.00 

FONT  Pack $25.00  Int'l  FONT  Pack $25.00 


CMD ...  Your  Source  for  GEOS  2.0  and  all  GEOS  Applications 


geoFile64 $40.00 

geoFile  128 $45.00 

Desk  Pack  Plus $29.00 


GEOS  POWER  PAK 


This  revolutionary  disk  features  some  of  the  best  talent  in  the  GEOS  community. 
A  two-sided  disk  packed  with  ten  of  the  most  practical  GEOS  desk  accessories, 
utilities  and  applications,  plus  21  fonts  and  over  100  clip  an  images.  GEOS  Power 
Pak  expands  C-64  capabilities,  increases  your  efficiency,  and  makes  you  more 
productive.  GEOS  Power  Pak  includes:  geoTerm  1 .0,  CardFile,  Write  Hand  Man, 
geoBreak,  Autoview,  Pattern  Editor,  Thumbnail,  geoOrganizer,  Convert  2.2,  and 
PaintView  II.  Plus  fonts  and  clip  art  images.  Only  $20.00 


GEOS  POWER  PAK  II 


Log  on  to  your  favorite  BBS  without  ever  leaving  GEOS,  Shoot  before  you're  shot 
in  a  challenging  arcade  style  game.  Create  documentation  files  for  GEOS-based 
Utilities,  Capture  your  opponent's  pieces  in  Egyptian  Siege,  Save  time  with  a  fast 
and  simple  text  editor.  View  GEOS-compatible  fonts  in  any  style  or  size,  up  to  48 
points.  Includes :GeoTerm64  V2,0,  GeoTerm  128  V2,1 ,  Egyptian  Siege,  FontView, 
geoTILE,  Q&D  Edit,  Import  Runner,  DocWright  II,  Shoot  Out,  four  fonts  and  over 
thirty  clip  art  images.  Only  $20.00 


GEOBasic 


Bring  the  world  of  point-and-click  performance  to  your  programs  with  this  high-level 
programming  language  from  GeoWorks,  GEOBasic  includes  five  specialized 
editors  to  make  programming  easier  than  you've  ever  dreamed.  Design  the  exact 
pull-down  menu  you  need.  Add  bitmap  graphics  into  your  programs  in  a  snap.  Full 
featured  Icon,  Dialog  box  and  Sprite  editors,  are  all  easily  accessible  from  the  Text 
Editor,  GEOBasic  comes  complete  with  sample  applications  and  1 38  page  spiral 
bound  programming  manual,  GEOBasic  is  the  perfect  addition  to  any  GEOS 
enthusiasts  library.  Now  just  $20,00 


GEOS  Companion 


Whether  you're  creating  animations  and  sound  effects  or  playing  Breakout  in 
3-D,  GEOS  Companion  has  something  every  GEOS  user.  It  is  packed  with 
powerful  accessories  and  utilities  such  as  Pattern  Editor  2,0,  File  Merge,  1581 
Boot  Maker,  Auto-Loader  and  Batch  File  Copier,  And  if  that  isn't  enough,  we've 
thrown  in  Susan  Lamb's  collection  of  clip  art  images  which  are  ideal  for 
dressing  up  cards,  newsletters  or  any  other  document  you  may  be  creating 
GEOS  Companion  comes  complete  with  a  comprehensive  38  page  manual 
Only  $20.00 


U.S.  Shipping  and  Ordering  Information 


Books  and  Software:  First  Item  $5,00,  plus  $1 ,00  for  each  add1  item.  Hardware: 
$5,50  per  item.  Power  Supplies:  $7,50  ea,  RUN  Back  Issues:  $5,50  (3),  $6,50  (6), 
$7, 50(1 2),MC,  Visa,  Money  Order  Accepted,COD  add  $5,00,  Personal  checks  are 
held  for  3  wks.  No  Returns  on  opened  software,  10  %  restocking  charge  on  all 
returns.  Pricing  and  availability  subject  to  change  without  notice. 


geoCable  Compatible  Parallel  Print  Cable 


Connects  parallel  printers  directly  to  the  Commodore  C-64  or  C-1 28  User  Port  for 
faster  printing  on  9  pin  printers  and  dramatically  faster  output  on  24  pin  printers 
Built-in  pass-thru  port  allows  you  to  maintain  connection  to  most  modems.  Ideal 
for  use  with  CMD's  Perfect  Print  LO  system  and  other  geoCable-compatible 
software.  Now  just  $20.00 


CMD 


Creative  Micro  Designs,  Inc. 


P.O.  Box  646, 15  Benton  Drive  East  Longmeadow,  MA  01028 

Orders:  (800)638-3263         Info:  (413)  525-0023  FAX:  (413)525-0147 

Office  Hours:  9  A»^  to  5  PM.  EST,  Monday  »iiu  Friday. 


CMD 


pf^psnu 


Bi^ariLDiHktuiaite 


!■(  iMr-11  nil  luh   ft^ 


This  month  I'm  putting  my  custom  color  (turned  chip  exploration)  article  on  hold.  Instead,  PAPSAW  will  feature 
excerpts  from  two  Public  Domain  sequential  files  compiled  by  Jerry  Schauss  and  David  L  Furguson.  These  files  made  it  to  me 
via  the  disk  of  the  month  from  TV/BUG.  This  is  the  sort  of  stuff  PAPSAW  is  made  of. 


USEFUL  POKES  &  SYS  FOR  THE  COMMODORE  64 

POKE  657,128  DISABLES  SHIFT/COMMODORE  KEY 

COMBINATION,  PREVENTS 
SWITCHING  BETWEEN  LOWEEASE 
AND  UPPER  CASE  LETTERS  AND 
GRAPHICS 

POKE  657,0    RESTORES  SHIFT/COMMODORE  KEY 

COMBINATION 

POKE  120,0    TURNS  COMPUTER  INTO  MINDLESS 

TYPEWRITER,  COMPUTER  MUST  BE 
TURNED  OFF  TO  RESET. 


POKE  2 11, COLUMN; POKE  214, ROW; SYS  58640;PRINT  "YOUR 
MESSAGE"  THIS  COMMAND  PUTS 
YOUR  MESSAGE  ON  THBCREEN  AT 
THE  LOCATION  YOU  SELECT 


POKE  53272,21  UPPER  CASE/GRAPHICS 

POKE  5327  2,23  LOWER  CASE/UPPER  CASE 

POKE  788, 52: POKE  808,239  DISABLES  STOP 

POKE  788, 49; POKE  808,237  RESTORES  STOP 

POKE  778,49;POKE  792,193  RESTORES  STOP 

POKE  808,234  DISABLE  ATOP,  RESTORE,  LIST 

POKE  808,237  RESTORE  STOP,  RESTORE,  LIST 

POKE  808,225  DISABLE  RESTORE 

POKE  808,237  ENABLE  RESTORE 

POKE  818,32    DISABLE  SAVE 

POKE  818,237   RESTORE  SAVE 


POKE  775,200  DISABLE  LIST 

POKE  775,167  RESTORE  LIST 

POKE  774,0  DISABLE  LIST 

POKE  774,26  RESTORE  LIST 

POKE  649,15  INCREASE  KEYBOARD  BUFFER 

POKE  649, 10; POKE  808,237  RESTORE  KEYBOARD 

POKE  808,249  DISABLE  KEYBOARD 

POKE  808,237  RESTORE  KEYBOARD 

POKE  649,10  RESTORE  KEYBOARD 

POKE  56579, N  TURNS  ON/OFF  USER  PORT  PB 

LOCATIONS  (N  =  0  THROUGH  255) 

POKE  56577, N  SAME  AS  POKE  56579, N 

SYS64767  RESETS  COMPUTER  WITHOUT 

CHANGING  SCREEN  COLORS 

SYS42562  NEW  COMMAND 

SYS58235  WARM  START  RESET 

SYS58260  INITIALIZE 

SYS58726  CLR/HOME 

SYS59062  ADVANCE  CURSOR 

SYS59137  PREVIOUS  LINE 

SYS59626  SCROLL  A  LINE 

SYS64738  COLD  START  RESET 

SYS65126  ALTERNATE  START  RESET 
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128  POKES  &   Peeks 

POKE  241,peek(241)orl6 

POKE  241, peek ( 241 )and239 

POKE  241,  c 

POKE  247,128 

POKE  248,64 

POKE  248,128 

POKE  249,128 

POKE  775,139 

POKE  792,51i793,255 

POKE  818,50 

BANK15,SYS49425 

SYS52522 

POKE  2592,0 

POKE  2593,1 

POKE  2594,1 

POKE  2594,127 

POKE  2599,0 

POKE  4140,0 


Blinks  80  column  text 

Stops  80  column  text  blink 

Sets  cursor  color  (c=0-15) 

Disables  C=/SHIFT.  (,0=normal) 

Unlink  screen  lines.  (,0=normal) 

Disable  screen  scroll.  (,0=normal) 

Disable  bell.  (,0=normal 

Disables  list.  (,81=normal) 

Disables  RUN/STOP-RESTORE.  ( , 64 i , 250=normal) 

Disables  save.  (,28=normal) 

Redefines  function  keys  to  the  C64 

Normal  CI 28  function  keys 

Disables  keyboard  (,10=normal) 

Waits  for  key  press 

Keys  repeat  as  C64's  do.  ( , 128=normal) 

No  keys  repeat.  ( , 128=normal) 

Blinks  cursor  40  column.  (,l=normal) 

Moves  SHIFT-RUN/STOP  to  help  key 


QQDQBBOQBODQQDBB  BBBB 


COMMODORE  MB 


128  system  coimiands 

SYS16384 

SYS16387 

SYS16795 

SYS19767 

SYS19910 

SYS44963 

SYS49152 

SYS49747 

SYS49488 

SYS50341,x 

SYS51069 

SYS51284 

SYS51290 

SYS51303 

SYS51317 

SYS51328 

SYS51346 

SYS51366 

SYS51372 

SYS51602 

SYS51748 

SYS51739 

SYS51830 

SYS51815 


Basic's  Cold  start 

Basic's  Warm  start 

Print's  power  up  message 

Entry-Basic's  ready  mode 

Keep  "READY"  from  appearing 

Runs  the  basic  program  in  memory 

Kernel's  warm  start 

Basic's  CLEAR/HOME  cursor 

Basic's  "HOME"  cursor 

Clears  line  number  in  register (x=0-24) 

Cancels  Quote  and  reverse  mode 

Cursor  right  in  window 

Down 
up 

left 
Switch  to  lower  case 

"  upper 
Disables  SHIFT/C=  switch 
Enables 

Generates  bell  tone  always 
Clears  all  windows 
Clears  current  line 
Clears  from  cursor  to  end 
"    "   start  of  line 
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SYS51 
SYS51 
SYS51 
SYS51 
SYS52 
SYS52 
SYS52 
SYS52 
SYS52 
SYS54 
SYS57 
SYS65 
SYS65 
SYS65 
SYS65 
SYS65 
SYS65 
SYS65 


871 

900 

954 

966 

031 

591 

639 

684 

689 

784 

416 

341 

354, a 

357 

357 

363 

375 

408 


128  Escape  Codes 


sc 

LOCATION 

e 

51871/$CA9F 

A 

51949/$CAED 

B 

51734/$CA16 

C 

51946/$CAEA 

D 

51794/$CA52 

E 

51979/$CB0B 

F 

52001/$CB21 

G 

52023/$CB37 

H 

52026/$CB3A 

I 

51773/$CA3D 

J 

52145/$CBB1 

K 

52050/$CB52 

L 

51938/$CAE2 

M 

51941/$CAE5 

N 

52040/$CB48 

0 

51069/$C77D 

P 

51815/$CA8B 

Q 

51830/$CA76 

R 

52013/$CB3F 

S 

51954/$CAF2 

T 

51732/$CA14 

U 

51966/$CAFE 

V 

51900/$CABC 

W 

51914/$CACA 

X 

52524/$CD2C 

Y 

51587/$C983 

Z 

51584/$C980 

REftDV 


Clears  from  cursor  to  screen  end 

Scroll  up 

Enable  block  cursor 

"  underline  cursor 
Invert  80  column  screen 
Turns  cursor  on 

off 
Writes  to  VDC  register 
Reads  VDC  register 
VDC  version(peek(54787)and7) 
GO  64  without  "are  you  sure?" 
Machine  reset 

Closes  all  files  in  device  "a" 
Resets  128  as  a  64 
GO  64  without  "are  you  sure?" 
Boot  call 

Swap  active  screens  (80/40  column 
Kernel  ID  bite(peek(65408 ) ) 


ACTION 

Clears  end  of  screen 

Enters  autoinsert  mode 

Sets  bottom  right  corner  of  window 

Cancels  autoinsert  mode 

Deletes  entire  logical  line 

Sets  nonblinking  cursor 

Sets  blinking  cursor  mode 

Enables  bell  tone  for  CHR$(7 

Disables  bell  tone  for  CHR$(7 

Inserts  a  blank  screen  line 

Moves  cursor  to  start  of  logical  line 

Moves  cursor  to  end  of  logical  line 

Enables  screen  scrolling 

Disables  screen  scrolling 

Sets  normal  80  column  screen 

Cancels  quote  mode  ESC-ESC  also 

Erases  to  start  of  logical  line 

Erases  to  end  of  logical  lines 

Reverses  80  column  screen 

Sets  block  cursor  (80  column) 

Sets  top  left  corner  of  window 

Sets  underline  cursor  80  column 

Scrolls  screen  up  one  line 

Scrolls  screen  down  one  line 

Switches  active  displays 

Sets  default  tab  stops 

Clears  all  tab  stops 
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firctiakc  Computer 

Ttie  Ccmputer  Store  Ot  Ttie  Past 


by 
Brian  L  Crosthwaite 


Ah.  1989.  Not  a  bad  year.  I 
was  into  Echelon,  Super 
Huey  II,  and  Defender 
of  the  Crown.  Echelon 
was  great!  Super  Huey  II's  user 
interface  was  so  complex  it  totally 
ruined  the  game  for  me.  Defender  of 
the  Crown  flashed  the  text  on  the 
screen  so  fast  and  short  that  I  couldn't 
even  read  It  --  so  I  took  it  back!  (Long 
story  there.) 

I  spent  a  lot  of  time  studying  and 
chillin'  by  the  pool.     I  meet  the  girl 


who  was  to  become  my  wife.  IVIy 
computing  consisted  mostly  of  playing 
games  and  programming  graphics. 

Software  Etc  still  carried  lots  of 
C64  stuff.  One  title  that  caught  my  eye 
was  a  game  maker  called  Shoot  'Em 
Up  Construction  Kit.  It  was  priced 
at  around  14  bucks,  but  some  other 
game  pulled  my  attention  away.  Later, 
as  the  supplies  for  the  C64  were 
dwindling  from  the  sale  tables  in  1992, 
it  dropped  in  price  to  $9.95. 

Now,  in   1993.  Software  Etc  has 


nothing  for  the  C64,  even  blank  disks 
are  MS-DOS  format.  Well,  as  support 
goes,  there  is  still  a  place  that  carries  a 
pile  of  C64  software.  New  Titles.  Old 
titles.  New  and  Used.  I  am  speaking  of 
Software  Support  International  --  one 
of  the  remaining  multi-machine  sup- 
port places  that  still  supports  our  C64s! 
This  kit  can  be  found  amidst  the  pages 
of  their  catalogoue  as  well  as  right  here 
in  our  own  little  corner  of  the  universe, 
here  in  the  Underground,  here  in  our 
Computer  Store  Of  The  Past. 


Shoot  'Em  Up  Construction  Kit 

Avantage 

*****  Fantastic! 

Reviewed  by  AC-Man  -  Brian  L  Crosthwaite 


The  program  loads  from 
BASIC  with  the  standard 
•L0AD":*",8,1'.  You'll  see  the 
AVANTAGE  logo  screen, 
followed  by  a  Shoot  'Em  Up 
Construction  Kit  logo  screen 
and  finally  the  control  menu 
pops  up.  Since  this  is  a  game 
oriented  package,  you  must 
have  a  joystick  in  port  2  to 
move  the  highlight  bar  and 
press  fire  to  select.  Cursor 
keys  do  not  respond. 

The      choices      firom      the 
control  menu  are: 

BLANK  MODULE 
SPACE  HAWK 
OUTLAW 

TRANSPUTER  MAN 
QUIT  TO  BASIC. 


The  first  choice  is  for 
making  your  own  game  (BLANK 
MODULE).  The  next  three  are 
actual  games  created  with  the 
Shoot  'Em  Up  Construction 
Kit.  The  last  choice,  of  course, 
is  to  exit  the  program. 

Since  the  first  thing  I  did 
was  to  play  the  games  I'll 
discuss  them  just  a  little  before 
we  get  into  the  nitty  gritty  of 
things. 


THE  GAMES 


With  the  joystick,  move  the 
highlighter  bar  over  SPACE 
HAWK  and  hit  fire  and  the 
program  loads.   The  main  menu 


soon  appears.     Inside 

here  you 

will  fmd: 

TEST  GAME 

-T 

EDIT  SPRITES 

-S 

EDIT  OBJECTS 

-0 

EDIT  BACKGROUND 

-B 

EDIT  SFX 

-F 

EDIT  PLAYER 

LMITATIONS 

-  P 

EDIT  ATTACH  WAVES 

-A 

EDIT  LEVELS 

-L 

EDIT  FRONT  END 

-G 

STORAGE 

-D 

EXIT  SYSTEM 

-X 

This  menu  is  the  first  menu 
after    the    control    menu;    no 

matter  what  is  selected  you  will 
see  this  menu.  However,  the 
game  in  memory  will  vary 
depending  upon  what  you 
selected.  You  can  play  the 
game    or    edit    it    just    about 
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anyway  you  like.  The  letters 
off  to  the  right  are  keyboard 
shortcuts,  for  instance  pessing 
"T"  will  take  you  to  the  TEST 
GAME  menu.  From  here 
there  are  three  choices: 
PROPER  TEST  --  fl,  CHEAT 
MODE  --  f3,  and  EXIT  --  X. 
Let's  do  CHEAT  MODE! 

A  text  screen  will  pop  up 
with  the  name  and  a  brief 
introduction  to  the  game.  This 
too  can  be  edited.  In  cheat 
mode,  you  get  blown  up,  but 
you  have  unlimited  lives!  1 
found  this  first  gajne  to  be  very 
much  like  XESUVIOUS  (not  ^ 
sure  on  the  s|jbllln|;]. 
XESUVIOUS  was  one  of  my 
all-time  favorite  arcade  games. 
In  cheat  mode  you  don't  have 
to  be  good  at  the  game  you 
write  to  see  if  things  work  the 
way  you  want  them  to.  In  this 
game,  multi-color  sprites  and 
graphic  backdrops  are  well 
done. 

This  particular  game  has 
backdrops  that  vary  from  lush 
green  parks  to  outer  space 
scenes. 


These  games  really  dont 
have  endings,  you  just  start 
over.  I  hate  that.  I  suppose 
you  could  make  the  game  end, 
if  and  when  you  reach  the  end. 
Maybe  have  a  background  that 
is  a  congratulations  sign.  1 
have  not  designed  a  complete 
game  with  this  kit,  however  I 
do  know  that  there  are  some 
things  that  make  them  all  the 
same.  The  scener>'  only  moves 
from   the   top   to   the   bottom, 


although  it  doesn't  necessarily 
have  to  scroll.  You  can  simply 
have  the  next  screen  appear 
when  you  reach  the  next  level. 
You  cannot  go  to  the  right  or 
left  as  far  as  scrolling  goes. 
Some  places  in  the  game  stop 
scrolling  until  an  enemy  is 
killed  or  a  given  amount  of  time 
passes. 

Unfortunately,  there  is  no 
way  to  add  music  to  your  game 
without  some  major 

programming  on  the  part  of  the 
game  writer. 


The  EDITORS 


Let's  jump  to  the  BLANK 
MODULE  from  within  the 
control  menu.  After  ^kcting 
the  BLAMK  MODULE  Hie  main 
menu  will  pop  up  as  before. 

Under  Emr  SPRITES  we 
find  a  menu  called  simply  edit 
SPRITE.  From  here  you  can 
select  whi<Jh  sprite  to  ^M,  edit 
sprite,  color,  slide  sprite^, 
mirror,  copy,  erase^  and  exit 

luside  SELECT  SPRITE  you 
will  find  the  actual  .sprite 
editor.  If  yott  pvisli  tlie  joystick 
forward  you  can  see  that  you 
can  design  up  to  126  sprites  in 
nsemory  at  one  time.  Actually 
all  options  from  this  menu  take 
you  to  the  same  sprite  editor, 
you  just  wind  up  at  a  different 
point  within  the  editor  as 
selected  from  the  menu.  If  you 
choose  slide  sprite,  you  will 
wind  up  in  the  editor,  however 
if  you  move  the  stick  you  will 
move  the  sprite  in  the  left, 
right,  up  or  down  direction. 
Pressing  fire  will  set  changes 
from   any  mode  and  you   can 


then  edit  the  sprite  for  design. 

You  can  have  57  objects, 
like  enemies  and  so  forth.  The 
object  basically  defines  what  it 
is  in  the  game:  enemy,  shots, 
death,  and  ship.  From  here  you 
can  test  the  object.  An  object 
may  have  more  than  one  sprite: 
its  animated  sequence.  You 
chose  where  it  is  to  be  on 
screen,  and  what  kind  of 
animation  it  will  under  go.  You 
can  place  the  same  sprites  in 
different  order  for  different 
animation  sequences.  You  can 
set  up  how  many  bullets  it 
takes  to  annihilate  the  enemy, 
how  often  they  fire,  what  sound 
effects  they  will  use  when  firing 
and  being  destroyed.  And  you 
can  copy  from  one  object  to 
another. 

Background  is  built  from 
the  ground  up  with  individual 
characters.  These  characters 
can  be  stamped  onto  a 
background  individually  or  in 
large  blocks.  The  blocks  can  be 
then  be  stamped  or  edited  for 
■what  characters  will  go  into 
them. 

The  SFX  editor  is  pretty 
cool.  There  is  a  set  of  slide 
controls  that  allow  you  to  select 
the  wave  (triarigle,  squire, 
pulse  and  white  noise),  attack, 
decay,  pitch,  the  rise  speed 
and  time,  and  the  fall  speed 
and  time.  The  sound  can  be  set 
up  differently  for  players  1  and 
2.  Sounds      include:      fire, 

explode,  start,  and  extra  life. 
There  are  eight  enemy  sounds 
for  fire  and  explode. 

You  can  also  set  up  player 
limitations  like  how  many  lives, 
the  speed  of  movement, 
number  of  bullets,  how  fast  they 
are,  how  far  they  fire  and  how 
long   they   fire,    what   happens 
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when  there  is  a  coUision  with 
another  char-  acter.  This 
editor  also  allows  you  to  define 
how  many  points  you  need  to 
gain  another  life.  These  can  be 
different  for  each  of  the  two 
players  if  you  like. 

You  can  edit  the  attack 
waves  and  place  what  enemies 
go  where. 

From  the  levels  per- 
imeters menu  you  can  edit 
each  level  or  screen  to  either 
scroll  or  stand  still.  The  speed 
it  moves  or  changes  can  also 
be  set.  The  length  of  time  that 
the  screen  is  displayed  is  set 
and  whether  it  is  to  continue, 
loop  or  redraw.  Continue 
makes  the  games  go  on  to  the 
next  level.  Loop  resets  the 
same  set  up  if  you  don't 
complete  it;  same  landscape 
and  enemy  set  up.  Redraw 
will  re-setup  a  still  screen's 
background  and  allow  for  a 
different  enemy  set  up. 

The  level  map  editor 
allows  you  to  choose  where  in 
the  map  of  background 
graphics  each  level  starts  and 
ends. 

The  Front  end  editor 
allows  you  make  your  own  font 
set  and  edit  your  own  message 
as  well  as  edit  the  type  of 
effect  the  message  will  have. 
Effects  are  basically  what 
colors  the  words  are  and 
whether  they  change  color  and 
how  fast  to  change  color. 

The  last  section  allows  you 
to  save  the  sprites, 
background,  sound,  etc,  or  all 
data.  This  way  you  can  change 
the  sound  or  levels  and  only 
update  what  you  want. 

As  you  can  see  it  is  a  very 
versitile  and  well  thought  out 
package.  Editing        the 


individual  parts  of  a  program 
like  characters  and  sound  may 
be  a  lot  of  work  with  this  kit,  it 
will  surely  make  the  process  a 
whole  lot  easier.  And  after  you 
get  done  with  the  overall 
design  part  you  are  finished. 
All  the  programming  will  be 
done.  This  is  kit  deserves  top 
honors  as  a  tool  that  gets  things 
done.  You  supply  the  idea  and 
the  art,  and  it  does  all  the  rest. 


Avalible  from  Software  Support 
International,  2700  NE 

Andresen  Road,  Suite  A- 10, 
Vancouver,  WA,  98661  for  just 
under  ten  bucks  from  their 
Liquidations  and  Closeouts 
section  of  their  summer  '93 
catalogue.  Write  for  info  and  tell 
them  you  read  about  it  in 
dieHard! 


REf^DV, 


BLANK  MODULE 
SPACE  HAWK 
OUTLAW 

TRANSPUTER  MAN 
QUIT  TO  BASIC 
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Qfrn 


"It's  all 

hexadecimal  and 
is  meaningless  to 
anyone  typing  it 
in!" 


NOTE:  When  you  write  us  with 
your  question,  be  sure  to  give  us 
every  detail  you  can,  like 
equipment  used,  software,  specific 
print  drivers,  dip  switch  settings  -- 
that  sort  of  thing.  This  will  help 
us  to  help  you  in  the  best  possible 
manner.  --  editors 


IJl       In  the  last  issue  of  RUN 
magazine,       November /December 
1992,  there  is  a  program  1  would 
like  to  have  "work."     It  is  called 
Super  Sort. 

Can  you  look  this  over  and 
tell  me  why  it  did  not  work.  -- 
Barry  Ashworth  of  Tucson, 
Arizona 


lines,  retyping  any  lines  whose 
checksums  do  not  match.  If  you 
find  a  line  whose  checksum 
cannot  be  matched  after  repeated 
typing,  you  may  have  found  a 
typographic  error.  The  error  may 
be  the  checksum  on  the  print  out, 
so  don't  despair.  Finish  checking 
all  lines  and  then  save  the  new 
version  to  disk  before  running  it. 
If  the  typo  is  in  the  program  and 
not  the  checksum,  then  it's  time  to 
check  out  some  other  sources  for 
sort  programs. 


fl 


This  type  of  type-in  program 
falls  in  the  complains  category  of  -- 
"It's  all  hexadecimal  and  is 
meaningless  to  anyone  typing  it 
in!"  The  program  is  a  BASIC 
loader  program  that  places 
hexadecimal  code  into  the 
computer's  memory.  Without  the 
original  source  code  it  is  virtually 
impossible  to  tell  what  the 
program  does. 

If  you  have  a  copy  of  RUN's 
checksum  program,  try  typing  it 
in,  save  it,  then  install  it.  Now 
load  your  already  typed-in  sort 
program.  List  it  10  or  15  lines  at  a 
time.  Place  the  cursor  on  the  line 
number  of  the  first  line.  Press 
return  and  check  what  the 
checksum  prints  on  the  screen  and 
cross-reference  it  with  the 
checksum  report  in  the  program 
listing.    Repeat  the  process  for  all 


ft 


In  reply  to  the  Q  &  A  in 
the  May  1993  issue  of  dieHard  as  to 
why  the  clock  does  not  work,  I 
suggest  checking  the  fuse.  Often  a 
blown  fuse  will  display  the 
characteristics  described.  ~  Howard 
Herman  of  New  York,  New  York 


EIC: 


Scot  has  verified  this. 


U*  The  other  day,  I  went  up 
to  my  computer,  flipped  on  my 
main  power  switch  on  the  surge 
protector.  This  turns  on  the 
monitor,  printer,  and  the  disk 
drive.  After  a  moment,  I  then 
turned  on  the  power  switch  to  the 
computer.  And  then  to  my 
astonishment,  I  realized  that  my 
picture  was  nothing  but  bright 
light.  I  looked  at  my  computer, 
the  little  red  indicator  light  was 
not  on.  I  shut  it  off,  then  back  on, 
still  nothing.  Maybe  I  blew  a  fuse. 
I  found  the  fuse  and  checked  it 
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with  an  ohm  meter.  It  still 
worked.  Now  what  I  did  was 
tantamount  to  panic.  I  called  a 
local  tech.  He  suggested  the 
power  source  was  at  fault.  He  said 
that  the  only  way  to  check  this 
was  to  hook  my  computer  up  to 
someone  else's  and  see  if  I  still 
had  the  trouble.  Made  sense  to 
me.  Off  to  my  friends  house  and 
yes,  it  turned  out  that  it  was  the 
power  source.  That  very  day  I 
ordered  a  new  one  from  Software 
Hut,  $19  plus  shipping. 

In  one  of  your  magazines  I 
thought  I  read  that  it  is  OK  to 
have  everything  hooked  up  to 
one  surge  protector.  I  am  asking 
the  question  "do  power  sources 
just  fail  with  age  (normal  wear 
and  tear)  or  should  I  add  another 
protector  and  split  my  power 
cords  between  them?"  I  use  my 
computer  on  average,  three  to 
four  hours  at  a  time,  every  other 
day  or  so.  And  on  weekends  I 
have  been  known  to  stay  on  it  all 
day  when  I  start  playing  chess 
against  it. 

Keep  up  on  the  good  work, 
you  have  a  great  magazine  in  the 
making.  --  Marcus  Krejci  of  Rural 
Retreat,  Virginia 


like  you  lucked  out,  in  many  cases 
a  bad  power  supply  has  been 
known  to  take  out  other 
components  inside  the  computer. 
I  hope  you  got  a  repairable  power 
supply.  They  are  usually  more 
heavy  duty,  and  that  alone  makes 
them  last  longer.  Also,  if  you 
want  the  best  protection,  since 
even  the  repairable  supplies  are 
fallible,  there  is  a  mini-circuit 
breaker  called  the  Computer 
Saver.  It  goes  in  line  between  the 
power  supply  and  the  computer. 
You  can  get  them,  for  $17.95,  from 
the  Grapevine  Group  Inc,  3 
Chestnut  St.,  Suffern,  NY,  10901. 


□: 


fi: 


Placing  your  computer's 
power  supply  on  the  same  surge 
protector  as  your  other 
peripherals  should  cause  no 
problems.  Power  supplies  have  a 
tendency  to  blow  out  now  and 
then  from  getting  old.  In  fact  one 
of  the  chief  causes  of  failure  on 
the  C64,  VIC20  and  Plus/ 4  is  a 
power  supply  gone  bad.  It  sounds 


I  first  received  my 
BBGram  in  December  of  1992,  I 
was  pleased  with  what  the 
program  could  do  for  me,  except  I 
was  disappointed  in  the  fact  that 
with  the  current  software  I  was 
only  able  to  utilize  the  2  megabites 
in  five  different  and  unrelated 
1571  Partitions.  What  I  want  to  do 
is  access  the  entire  2Ms  as  a  whole. 

I  ordered  gateWay  2.5  from 
TechMedia  and  a  few  months  and 
a  buyout  later,  I  was  the  proud 
owner     of     gateWay     2.5.  I 

remembered  in  my  now  lost 
manual,  that  BBG  was  in  reality 
GEORAM.  So  I  turned  to  the 
section  on  making  a  gateWay 
boot  disk.  I  called  Performance 
Peripherals.  The  person  there 
informed  me  that  the  file  called 
Switcher  in  gateWay  sometimes 
failed  to  work  with  GEORAM.  He 
confirmed  that  the  computer  sees 


"do  power  sources 
just  fail  with  age 
(normal  wear  and 
tear)  or  should  I 
add  another 
protector  and  split 
my  power... " 
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"The  person  there 
informed  me  that 
the  file  called 
Switcher  in 
gateWay 
sometimes  failed 
to  work  with 
GEORAM. " 


the  BBG  as  GEORAM.  I  called 
CMD.  They  said  that  in  order  to 
use  the  item,  I  would  need  a 
GEORAM  boot  disk,  since 
gateWay  patches  itself  to  the 
GEOS  kernel  and  the  GEORAM 
kernel  was  slightly  modified  and 
different  from  the  regular  GEOS 
kernel. 

How  may  one  obtain  a 
GEORAM  boot  disk  without 
purchasing  the  GEORAM  unit 
itself?  -  Adam  Hobbi  of  Merced, 
California 


don't  know  that  it  would  work 
anyway.  I  hope  you  can  suggest  an 
easier  alternative.  ~  Stephen 
Barcena  of  Mechanicsville, 
Virginia 


f\: 


f\: 


You  might  try  writing 
GeoWorks  and  explain  the 
problem.  They  might  be  able  to 
sell  you  just  the  disk  that  goes 
with  the  GEORAM.  GeoWorks, 
2150  Shattuck  Avenue,  Berkeley, 
CA,  94704. 


□: 


1  have  a  VCR  next  to  the 
computer  set  up  to  record  from 
cable  or  the  computer,  using  the 
switch  that  came  with  the 
Commodore  64.  The  signal  is 
routed  from  the  computer  to  the 
VCR  and  then  to  a  TV  set. 

Now  I  have  a  Commodore  128 
and  a  Magnavox  1CM135  40/80 
color  monitor.  I  have  not  been 
able  to  figure  out  how  to  hook  it 
up  to  the  VCR.  I  understand  that 
only  the  40  column  64  mode 
output  can  be  used,  but  running  a 
connection  from  the  128's  RE 
output  does  not  work.  I  have  not 
disconnected  the  RGB!  connection 
and  use  only  the  RF  connection 
because  it  is  so  much  trouble  and  I 


You  can  plug  in  the  40 
column  output  directly  to  the  VCR 
as  you  did  before  since  the  64  and 
128  modes  both  go  to  the  same 
composite  color  out.  To  get  the  80 
column  display  to  the  VCR  is  a 
little  different  story.  If  you  can  get 
a  monochrome  cable  that  is 
designed  to  go  to  a  composite 
monitor  you're  in  business.  If  you 
had  your  heart  set  on  color,  I  don't 
think  it  is  possible,  due  to  the  way 
the  RGBI  handles  color.  Someone 
somewhere  may  make  a  mixer  to 
make  a  composite  color  signal 
from  RGBI  signals,  but  I  don't 
know  of  anyone.  As  far  as  the 
monochrome  cable  goes,  the 
Grapevine  Group  may  have  these. 
It  has  been  quite  awhile  since  I  got 
mine.  You  might  write  them  at 
the  above  address  (p. 16). 

If  you  feel  modivated  so,  you 
can  make  one.  Get  these  items 
from  Radio  Shack: 

9  pin  DB  male  connector 

P#  276-1537 
9  pin  DB  connector  hood 

P#  276-1539 
6  feet  of  RCA  to  RCA  cable 

P#  42-2367 

Cut  one  end  off  of  the  RCA 
cable.  Strip  the  wires  so  that 
you've  got  at  least  1/4  inch,  but 
not  more  than  1/2  inch.  Solder 
the  center  wire  to  pin  #7  (see  page 
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352  of  the  System  Guide  for  the 
128)  on  the  9  pin  DB  connector 
and  the  outer  wire  to  pin  #1. 
Make  sure  the  wires  are  not 
touching  and  place  the  cover  on 
the  plug.  I  might  mention  here  - 
don't  do  this  if  you  don't  know 
what  you  are  doing.  Soldering  is 
not  to  be  taken  lightly  -  do  it  over 
a  bare  concrete  floor  with  long 
pants,  LynnCarthy  Industries  is 
not  repsonsible,  so  on  and  so 
forth. 

Now  you  can  place  the  mono 
chrome  plug  RCA  end  on  your 
VCR  in  and  run  the  VCR  out  to 
the  40  column  in  on  the  monitor. 


Aurora,  CO,  80012.    He  specializes 
in  PET  and  CBM  equipment. 


U*  When  1  format  a  disk  in 
128  mode,  it  seems  to  format  only 
one  side.  Does  it  save  programs  to 
the  other  side  just  the  same?  Or  is 
there  a  problem.  I  cannot  find  this 
info  in  the  manual. 

Love  your  mag!!     -  Bernard 
Babbie  of  Tupper  Lake,  New  York. 


fi: 


□: 


The  poke  for  mirror 
imaging  the   screen   didn't   work 
on  my  C64  -  if  you  have  the  right 
one  I'd  like  to  know  about  it.  -- 
Premena  of  Boulder,  Colorado. 


ft 


The  poke  given  was  for 
the  Atari.  It  was  in  reference  to  a 
progiwn  for  the  C64  that  flipped 
the  screen.  We  just  happen  to 
have  the  program  on  this 
month's  Spinner.  There  is  no 
single  poke  to  do  this  on  the  C64. 


□: 


I  have  an  old  CBM 
Model  8032.   I  wonder  if  you  have 
any  info  on  where  to  get  a  disk 
drive  and  DOS  for  it.  --  Ronald  K. 
Maxwell  of  New  York,  New  York. 


ft 


You  might  write  to  R. 
Snyder,   1192  S.   Nome,   Suite  B, 


I  am  assuming  you 
have  a  C128  and  a  1571  drive,  since 
you  didn't  say.  When  you  turn 
the  drive  on,  then  boot  up  your 
C128  in  128  mode,  the  drive 
should  be  in  1571  mode.  Format  a 
disk: 

HEADER"diskname",IXX. 

Then  press  <f3>  to  call  up  a 
directory.  You  should  see  the 
name  of  the  disk  and  "1328 
BLOCKS  FREE."  If  it  says  "664 
BLOCKS  FREE,"  then  something 
went  wrong.  Type: 

OPEN15,8,15,"UO>M1":CLOSE15   <return> 

This  will  put  the  1571  in  1571 
mode.  Try  the  FORMAT  again. 
NOTE:  this  will  only  work  on  a 
1571  disk  drive,  not  a  1541  drive.  If 
you  still  only  get  664  blocks  free, 
there  may  be  something  wrong 
with  the  drive  either  electroniclly 
or  mechanically. 

REf^DV. 


"I  have  an  old 
CBM  Model  8032. 
I  wonder  you  if 
have  any  info  on 
where  to  get  a  disk 
drive  ana  DOS  for 
it. " 
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DOS  &  Don'ts 


DOS  and  Don'ts  is  reprinted  witli  permission  from  LOADSTAR.  The  Complete  DOS  and  Don'ls  is  available  on  1541  disk  for  the  64  for 

$9.95,  plus  $4.50  Shipping  for  2nd  day  delivery  from  Sofldisk,  P.O.  Box  30008,  Shreveport,  LA,  71130. 


Error  Channel  Uses 


by 

Joel  Ellis  Rea 


Now  you  know  how  the  Command/Error  channel  got  its 
name.  When  information  is  sent  to  the  drive  through  the 
Command/Error  channel,  it  is  considered  to  be  a  disk 
command.  When  information  is  requested  from  the  drive 
through  the  Command/Error  channel,  it  is  the  Disk  Drive  Error 
Status.  Thus,  a  PRINT#  15,  where  Logical  File  Number  15 
was  OPENed  as  the  Command/Error  channel  of  a  disk  drive, 
sends  a  command  to  the  drive,  while  INPUT#  15  asks  for 
drive  status. 

As  an  example,  let's  write  a  short  program  that  asks  the 
user  for  the  name  of  a  file,  then  tells  the  user  if  that  file  exists 
on  the  disk  or  not.  The  way  we  will  tell  is  by  asking  the  drive 
to  Rename  the  file  to  its  own  name.  If  the  Rename  succeeds, 
no  harm  is  done,  since  the  new  name  equals  the  old  name!  If  it 
does  not  succeed,  we  can  find  out  why  not.  One  possible 
error  message  we  might  get  back  is  Error  #63,  'FILE  NOT 
FOUND'. 

10    PRINT    ■■CCLR]" 

20  OPEN  15,8,15,"I0"  :  GOSUB  200 

30  IF  ERJi  >  19  THEN  END 

40  INPUT  "FILENAME";  FS 

50  PRINT**15,  "RO:";  FS;  '■  =  ■■;  FS 

60  GOSUB  200 

70  IF  ERX  >  29  AND  ERX  <    40  THEN 

PRINT  "BAD  FILENAME":  GOTO  40 
80  IF  ERX  =  G2  THEN  PRINT  FS;  "IS 

NOT  ON  THE  DISKETTE!"  :  END 
90  IF  ERy.    =    G3  THEN  PRINT  FS;  "IS 

ON  THE  DISKETTE!"  :  END 
100  PRINT  "ERROR  **";ERX:  PRINT 

ERS  :  END 
200  INPUT**15,  ERX,  ERS,  ETX,  EBX 
210  IF  ERX  =  74  THEN  PRINT  "DOOR 

OPEN  OR  NO  DISKETTE" 
220  IF  ERX  >  19  AND  ERX  <  30  THEN 

PRINT  "BAD  DISKETTE" 
230  RETURN 

This   program   begins   by   clearing   the   screen,   then 


OPENing  the  Command/Error  channel  and  sending  an 
Initialize  command  in  one  step.  A  subroutine  at  line  200 
obtains  the  disk  status  and  puts  the  status  code  in  ER%. 
Then  it  checks  it  against  some  common  errors.  Any  error 
code  less  than  20  is  considered  OK. 

We  then  ask  the  user  for  a  filename  (line  40)  then 
Rename  it  to  itself  (line  50).  Again  we  call  the  subroutine 
(line  60)  to  determine  the  Drive  Status.  We  first  check  for  a 
'SYNTAX  ERROR',  which  could  be  caused  by  a  bad  file 
name.  Then  we  check  for  a  'FILE  NOT  FOUND',  which 
would  tell  us  that  the  file  does  not  exist  on  the  diskette.  If  the 
command  succeeds,  ('FILE  EXISTS'),  the  file  is  on  the 
diskette.  We  notify  the  user  in  either  case. 

The  Command/Error  channel  is  a  very  powerful  tool 
which  you  will  need  to  understand  when  you  start  using  data 
files. 


SEQ    Files 


In  this  installment,  we  will  discuss  how  to  actually  use 
the  1541  as  more  than  just  a  place  to  store  programs.  We 
will  discuss  using  it  as  a  place  to  put  data  to  be  used  by  your 
programs. 

A  'file'  is  a  collection  of  data  bytes  grouped  together 
and  given  a  name,  and  stored  on  a  mass-storage  device  such 
as  the  1541.  These  bytes  may  be  anything  that  the  computer 
can  use  and  recognize.  They  may  be  the  ASCII  characters 
which  make  up  text,  or  they  may  be  other  kinds  of  data. 
BASIC  programs  almost  always  use  the  ASCII  means  to 
represent  data. 

A  file  is  called  a  'sequential'  file  if  it  can  only  be 
accessed  from  beginning  to  end.  It  is  called  a  'relative'  file  if 
it  is  divided  into  equally-sized  'records'  that  can  be 
referenced  in  any  order.  A  sequential  file  might  be  used  to 
store  text,  such  as  a  letter  or  report;  or  any  other  information 
which  need  not  be  accessed  in  a  relative  fashion,  but  can  be 
used  sequentially. 

For  small  amounts  of  data  that  must  be  accessed  in  a 
relative  fashion  such  as  a  personal  mailing  list,  it  is  possible 
to  use  the  data  in  memory  in  the  form  of  one  or  more  BASIC 
arrays,  and  to  store  the  arrays  sequentially  in  a  sequential  file 
when  the  program  is  done  with  them,  so  they  can  be  read  in 
next  time. 
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The  important  things  to  remember  about  sequential  files  are  that  they  must  be  accessed  from  beginning  to  end  and  that  (at 
least  when  used  from  BASIC)  they  hold  data  in  a  form  which  can  be  used  by  the  BASIC  INPIJT#  statement.  That  means  that 
each  data  item,  meaning  each  piece  of  data  that  will  go  to  a  particular  variable,  must  be  separated  from  adjacent  pieces  of  data  in 
the  file  by  a  comma  or  a  carriage  return.  For  example,  if  you  had  a  BASIC  program  that  asked  a  question  such  as: 

56  INPUT  "MHO  ARE  VOU  AND  HOW  OLD  ARE  VOU";  NAS,  ACQ 

it  would  display: 

MHO  ARE  VOU  AND  HOM  OLD  ARE  VOU?  ■ 

and  you  could  choose  to  answer  either  by  separating  your  name  and  age  with  a  comma,  as  in: 
MHO    ARE    VOU    AND    HOM    OLD    ARE    VOU?    JOEL    REA,     25 

or  by  pressing  RETURN,  as  in: 

MHO  ARE  VOU  AND  HOM  OLD  ARE  VOU?  JOEL  REA 
??  25 

But  if  you  didn't  separate  them,  or  tried  to  use  another  character  as  a  separator,  this  would  happen: 

MHO  ARE  VOU  AND  HOM  OLD  ARE  VOU?  JOEL  REA  25 
??  ■ 

The  program  would  assign  'JOEL  REA  25'  to  NA$,  and  still  need  data  for  AG!  As  far  as  a  BASIC  program  is  concerned,  a 
sequential  file  is  merely  stored  INPUT.  Thus,  when  writing  to  the  file,  you  must  write  a  separator  between  each  piece  of  data. 
This  separator  can  be  a  comma  or  a  carriage  return  (CHR$(13)).  I  recommend  using  the  return  by  assigning  it  to  the  variable 
R$  near  the  beginning  of  your  program: 

16  R$=CHR$<13>:  REM  CARRIAGE  RETURN  FOR  DATA  SEPARATOR  IN  FILE. 

Then  you  can  use  it  easily  when  you  need  to  write  data: 
160    PRINT#8^     NAS;     R$;     AG 

A  return  is  automatically  written  after  the  data  in  a  PRINT#  statement  if  no  comma  or  semicolon  appears  at  the  end  of  the 
statement  (just  like  PRINTing  to  the  screen!). 
To  be  continued... 

READV. 
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THE  WINGS  Of  CmfiE 

A  TALE  OF  MYTH  AND  LEGEND 

C-64  or  C-128  in  64  mode 

ARCADE/ROLE  PLAYING  GAME 

Assume  the  role  of  Circe  and  Pegasus) 

Battle  wizards  and  dragonsi 

$19.95  Check  or  Money  Order 

CREATIVE  PaELS  LT9. 
P.O.  BOX  592,  UBKAJtY,  M  t5t29 


C64/128  PUBLIC  DOMAIN  SOFTWARE 

REQUEST  FREE  CATALOG  or  send  S2  for  sample  disk  and  catalog  (RE- 
FUNDABLE). Categories  Include  education,  utilities,  gomes,  business, 
PRINT  SHOP  graphics,  pre-tested  programs  and  more.  Rent  for  75«  or 
buy  OS  low  as  $1.00  per  disk  side  or  for  80C  for  70  or  more.  $20  order 
gets  4  free  disks  of  your  ctiolce. 
NEXT  DAY  SHIPPINGI  SINCE  1 986 

CALOKE  INDUSTRIES  (Dept.  GK) 

PO  BOX  18477,  RAYTOWN,  MO  64133 


VISA 


Power's  on,  but  the 
system  hasn't 
booted." 


Trader's  Corner 

Got  something  to  trade?  Need  something?  Try  here.  Maybe 
one  of  our  readers  has  just  what  you're  looking  for.  Or  perhaps 
they  want  what  you  have.  Trader's  Corner  is  free  to  subscribers 
looking  to  trade  or  buy.  (If  you  want  to  sell  something  you'll 
have  to  take  out  a  classified,  they  are  $0.25/word.)  All  TCs 
will  be  listed  for  three  months.  Write  to  dieHard,  Trader's 
Comer,  P.  0.  Box  392,  Boise,  ID,  83701. 


Books,  magazines  (no  Gazette,  I  have  complete 
run)  for  VIC  20,  C64/128.  Ram  expansion  for  VIC20. 
Books,  magazines,  programs  for  the  Timex/Sinclair  1000. 
Have  cash  or  Commodore  magazines  (Gazette,  Run,  Ahoy) 
to  trade.  Doug  Wagoner  #000158,  c/o  dieHard,  Trader's 
Corner,  P.  0.  Box  392,  Boise,  ID,  83701. 


Books  on  any  computer,  old,  new,  never  released, 
etc,  BLC  #000000,  c/o  dieHard,  Trader's  Corner,  P.  0.  Box 
392,  Boise,  Idaho,  83701. 


Shadow  of  the  Beast  cartridge  for  the  64/128, 
Echelon  for  C128,  and  Qix  for  C128.  Barry  Hom  #000168, 
c/o  dieHard,  Trader's  Corner,  P.  0.  Box  392,  Boise,  ID, 
83701. 


1.  The  Omnicroni  Conspiracy  by  Epex.  2. 
Purple  Saturn  Day  by  Epex.  I  have  over  400  programs  that 
I  will  trade  for,  or  I  will  buy  the  two  games  listed  above.  Craig 
Shepley  #002042,  c/o  dieHard,  Trader's  Corner,  P.  0.  Box 
392,  Boise,  ID,  83701. 


"...to  hell  with  ROM, 
I  want  CD-RAM!" 


Wanted:  Anyone  out  there  have  a  working  Write  Now 
cartridge  with  which  they  would  part?  (CardCo)  Walter  C. 
Erbach  #000286,  c/o  dieHard,  Trader's  Corner,  P.  0.  Box  392, 
Boise,  ID,  83701. 


Two  Plus/4  computers.  Mr.  Oran  Sands  #001801, 
c/o  dieHard,  Trader's  Corner,  P.  0.  Box  392,  Boise,  ID, 
83701. 


I  am  interested  in  obtaining  a  copy  of  Len  Lyons 
book     "Using     the     Commodore     64,"  published     by 

Addison-Wesley  of  Reading,  Mass.  Bob  Grunwald  #002547, 
c/o  dieHard,  Trader's  Corner,  P.  0.  Box  392,  Boise,  ID, 
83701. 


Speedscript64  most  recent  version.  Phone 
List  additions  automatically  alphabatized.  Donald  H.  Webber 
#001188,  c/o  dieHard,  Trader's  Corner,  P.  0.  Box  392,  Boise, 
ID,  83701. 


Original      Compute!,      RUN,      Ahoy,      & 
Trancactor  disks.    Pre-volume  5  Transactor  mags.    R.  Scot 
Derrer  #0000B,  c/o  dieHard,  Trader's  Corner,  P.  0.  Box  392, 
Boise,  ID,  83701. 
REf^DV. 
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by 

Brian  L  Crosttuiatte 


Welcome  to  PRG.  This  is  the 
section  of  dieHard  that  is 
traditionaly  type-in  programs. 
This  month  that  steadfast  rule 
holds  true.  While  normally,  the 
programs  within  the  pages  of 
dieHard  are  copyrighted  and 
cannot  be  distributed  freely,  this 
month  we  have  something  a  little 
different.  This  month  we  are 
featuring  Public  Domain 

programs. 

Both  the  type-in  programs 
and  the  programs  found  on  this 
month's  Spinner  are  all  in  the 
public  domain.  That  means  you 
can  give  your  friends  copies  of  the 
August  Spinner  and  not  have  to 
wear  a  patch  on  your  eye  or  have 
that  pesky  parrot  on  your 
shoulder. 

We     have     some     DEMOs, 


games,  and  a  couple  of  utilities. 
This  is  just  a  brief  overview  of 
what  things  are.  In  fact,  since  we 
have  so  much,  we  have  two  disks 
for  the  Spinner  this  month! 

The  following  is  a  list  of 
what's  on  the  Spinner.  The 
names  listed  here  are  a  little 
different  from  what  they  are  on 
disk.  Some  programs  may  run  on 
a  computer  other  than  just  the  one 


it  is  listed  under!  So  don't  hesitate 
to  try  them  on  other  machines. 

To  the  best  of  our  knowledge, 
these  programs  are  in  the  Public 
Domain.  If  a  program  is  found 
not  to  be  in  the  Public  Domain, 
please  let  us  know  and  we  will 
remove  it  from  our  PD  93 
collection. 

I'd  like  to  thank  each  and 
every  programmer /artist  who  has 
spent  many  hours  writing  and 
creating  the  wares  presented  here. 
Although  some  of  the  program's 
authors  are  unknown  to  us  today, 
and  many  of  these  programmers 
may  have  moved  on  to  other 
realms,  your  great  work  is  not 
forgotten. 

THANK  YOU. 
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found  only  on  the  Spinner 


Upside  Down 
Swinth  II 
Spockspeak 

The  Adventures  of  Krud!! 
Get  Up! 
Boing 
Pepsi  Spin 
Fatman 
Fred  Krueger 
PRGs  for  the  C64  will  run  on  64C,  SX64, 
Educator64,  and  C128  &  C128D  (in  C64  mode). 


Cl^D  (C128  w/64k  video  RAM) 

DD  Megacolor  3  -  Display 
six,  yes  six,  doodle  pictures  on 
80  columns  in  full  color  at  an 
amazing  640x600!!!!! 


C16 

Hires  Graph 

Calendar 

Choo  Choo  Train 

Color  Calibrate 

C/G  viewers  1  &  2 

(plus  lots  of  C/G  pix!) 


PRGs  for  the  C16  will  also  run  on  +4. 


G 


+4 

Pharaoh's  Needles 
Star  Trek 
Monopoly 
Labyrinth 
Tic  Tac  Toe 
Platform  Diving 
Forbidden  Crypt 
Big  Mac 

PRGs  for  the  C16  will  also  run  on  +4. 


VIC  Rhino 

Alphabetize  Family 

Poiitts 

V  Jim  in  Color 

VIC  Simon 

VIC  Piano 

VIC  Draw 

Rocket  Command 

Outpost 

Kaleidoscope 

VIC  Hardhat 


CBM  4032  V2.1 

Space  Weights 

Pong 

Pub  Sillmess 

Hamlet 


These  PRGs  (except  CBM  4032  )  will  run  on 
the  PET,  CBM,  C64,  64C,  SX64,  Educator64, 
and  C128  &  C128D  (in  C64  mode).  To  run  on 
an  80  column  CBM,  run  CBM  4032  first. 
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PRG 


ENGLISH  DARTS  (C64) 

by 
unknown 

This  is  a  nice  little  dart  game  for  one  or 
multiple  players.  Game  play  is  self- 
explanatory.  The  program  is  easy  to  use  and 
the  game  is  very  addictive.  For  the  C64. 


100  REM:  ***ENGLISH  DARTS***  * 

INITIALIZATION  * 
116  PRINT" [CLR]":POKE808, 234 
120  C$=CHR$(147) iD$=CHR$(17) : 

H$=CHR$ ( 19 ) : F$=CHR$ ( 144 ) : 

RF$=CHR$(146):RO$=CHR$(18) 
125  C1$=CHR$(28):C2$=CHR$(30): 

C3$=CHR$(31) :C4$=CHR$(156)! 

C5$=CHR$(158):BC=53280 
130  C6$=CHR$(159)!V=53248:CL=646i 

S=102sNA$="*ENGLISH 

DARTS* " : A$=" " : SN$=" " ;B$=" " 
135  RD=l;POKE53281,l:POKEBC,9i 


"RF$TP(PP); 

255  PRINTC6$RO$TAB(20)"  #  OF  PLAYERS 

[2  SPACE ]"RF$Z;GOSUB680:FORK=1TOZ: 

CC=K+l!POKECL,CC 

260  PRINTR0$TAB(21)"  PLAYER  # 

"RF$K; :PRINTTP(K) !NEXT;GOSUB680 

265  PRINTC4STAB(1 )A$;PRINT:PRINTF$ 

TAB ( 7 ) SN$ ; PRINT : PRINTC4$TAB ( 4 ) B$  s 

PRINT 

270  IFTH>3THENGOSUB640:FORK=lTO9: 

POKEV+K,0:NEXT:GOSUB585:GOTO225 

275  POKEl 98, 0:GOSUB640:PRINTC5$ "PRESS 

"R0$F$"<KEY>"RF$C5$"  TO  TOSS" 

285  REM:  ***THROW  SEQUENCE*** 

295   FORK=1664T01683:POKEK,32:NEXT; 

FORK=1744T017  63:POKEK,32:NEXT 

300  FORK=1824T018  43:POKEK,32;NEXT: 

IFTH=lTHENQ=4:W=5!y=215:G=6:  G0T0315 

305  IFTH=2THENQ=6;W=7:Y=211:G=14; 

G0T0315 

310  IFTH=3THENQ=8:W=9;Y=219:G=30 

3 1 5  POKEV+21 , Gi POKEV+23 , 2 ; POKEV+29 , 28 

: F0RK=1T0Z : IFK=PPTHENCC=K+1 ;  GOT0325 

320  NEXT 


FORK=0TO62;READA:POKE832+K,A:NEXT  325  poKEV+40, 11 :FORK=41T043 : 


140  FORK=0TO62!READA!POKE896+K,Ai 

NEXT!FORK=49152T049245:READA! 

POKEKjAsNEXT 
145  POKE49152+19,0;POKE2041,13: 

POKE2042 , 14 : POKE2043  ,  14  ; 

POKE2044,14:SYS49152 
155  REM:  ***BILLBOARD*** 
165  GOSUB700:GOSUB555: PRINT:  PRINT; 

PRINTF$TAB ( 1 2 ) NA$ : G0SUB6  8  0 
170  PRINTC2$RO$TAB(13)"  WHICH  GAME? 


POKEV+K,CC: NEXT :P0KEV+2, 255; 

POKEV+3,9  0 

3  30  FORL=90TO110:POKEV+Q,30:POKEV+W,L 

; IFPEEK( 198 )=1THEN350 

335  FORT=lTO10;NEXTT:NEXTL 

340  FORL=110TO90STEP-l:POKEV+Q,30i 

POKEV+W,L:IFPEEK(198)=1THEN350 

345  FORT=lTO10:NEXTT;NEXTL:GOTO330 

350  FORK=1904TO19  23:POKEK,32:NEXT; 


POKEV+Q , 0 : POKEV+W , 0 ; POKE 198,0: 
":PRINT;PRINTTAB(8)"301  "R0$"  <1>  poKEV+21  G 

";  355  FORK=30TOY;POKEV+Q,K;POKEV+W,L; 

175  PRINTRF$"  OR  501  "R0$"  <2>  "  :PRINTf,EXT.GOSUB660  ;R=N:GOSUB66  0  :D=N 
180  GETK$:K=VAL(K$):IFK<lORK>2THEN180  jgQ  A=0 :FORK=80TO99 :A=A+1 : IFL=KTHEN380 
185  IFK=lTHENGA=301:GOTO195  355  {jg^T 

190  GA=501  370  A=21 : FORK=101TO110 :A=A-2 : IFL=K 

195  PRINTR0$TAB(7)"  NUMBER  OF  PLAYERS?,pjjj;f,38o 


"RF$"  (1-7)" 
200  GETK$:Z=VAL(K$):IFZ<lORZ>7THEN200 
205  GOSUB585 

215  REM:  ***SCREEN  PRINT*** 
225  P0KEBC,1:PRINTH$R0$"[12  SPACE] 

"NA$"[8  SPACE]" 


230  PRINTC5$R0S"  PLAYER  NUMBER  "RF$PP;pQ0gLE" :GOTO400 


375  NEXT;IFL=100THENA=50 

380  IFA=50THENB=A;A$="YOU  THREW 

A. , . " ;SN$="BULLSEYE! " :GOTO405 

385  IFA=RANDA=DTHENB=A*3:A$="Y0U  THREW 

A  TRIPLE" :GOTO400 

390  IFA=RTHENB=A*2;A$="Y0U  THREW  A 


235  PRINTC3$RO$TAB(20)"  DART  NUMBER 

[3  SPACE ]"RF$TH 
240  PRINTC4$R0$"  ROUND  SCORE 

[3  SPACE ]"RF$RS ; 
245  PRINTC1$RO$TAB(20)"  ROUND  NUMBER 

[2  SPACE ]"RF$RD 
250  PRINTC2$R0$"  CURRENT  SCORE 


395  B=A:A$="Y0U  THREW  A  SINGLE" 

400  SN$=STR${A) 

405  B$="FOR"+STR$(B)+"  POINTS" 

: TP ( PP ) =TP ( PP ) +B : RS=RS+B 

410  IFTP(PP)=GATHENF0RK=1T09: 

POKEV+K, 0 : NEXT : GOT047  5 

415  IFTP(PP)>GATHENF0RK=1T09; 


POKEV+K, 0:NEXT:GOTO440 

420  TH=TH+l:GOT0225 

430  REM:  ***BROKE  STATEMENT*** 

440  POKEBC,2;GOSUB700;GOSUB555: 

GOSUB680 

445  PRINTC4$TAB(14)"YOU  THREW"B: 

PRINT : PRINTTAB ( 18 ) "AND" : PRINT 

450  PRINTF$TAB(14)"B*R*0*K*E! ! "; 

PRINTC4$:GOSUB640:TP(PP)=TP(PP)-B 

455  RS=0:TH=l:GOSUB58  5:FORK=lTO9: 

POKEV+K, 0: NEXT :GOT0225 

465  REM:  ***WINNER  STATEMENT*** 

47  5  POKEBC,5;GOSUB700:GOSUB555: 

GOSUB680:PRINTC4$TAB(5)NA$"  WINNER 

IS. . . " 

480  PRINT :GOSUB640:PRINTF$TAB( 10) 

"PLAYER  NUMBER"PP: PRINT 

485  PRINT!PRINTC4$TAB(8)"SEE  FINAL 

SCORES?  (Y/N)" 

490   GETK$:IFK$=""THEN490 

495   IFK$="Y"THENPP=Z:NU=l:GOT0585 

500  IFK$="N"THEN515 

505  IFK$<>"Y"ORK$<>"N"THEN490 

510  GOSUB680 

515  PRINT:PRINTC5$RO$TAB(10)"  PLAY 

AGAIN?  "RF$"  (Y/N)" 

520  GETK$:IFK$=""THEN520 

525  IFK$="Y"THENCLR:GOTO120 

530  PRINTC$;GOSUB680:PRINTC2$TAB(12) 

NA$ ; PRINT : PRINTTAB ( 17 ) "E*N*D"  ; 

GOSUB640 

535  POKEV+21, 0;PRINTC$iEND 

545  REM;  ***SPRITE  LOGO*** 

555  POKEV+21, 30: POKEV+23, 2: 

POKEV+29 , 28 ; POKEV+40 , 12 : 

POKEV+41,ll:POKEV+42,12 

560  POKEV+43,15:POKEV+2,180: 

POKEV+3 ,100; POKEV+4 , 144: POKEV+5 , 1 04  ;  PO 

KEV+6,147 

565  POKEV+7,lll:POKEV+8,142: 

POKEV+9, 118: RETURN 

575  REM;  ***NEXT  PLAYER/BOX  SCORE 

SUBROUTINE*** 

58  5  POKEBC , 5 : G0SUB7 0 0 : G0SUB5 5 5 : TH=1 : 

RS=0 ;PP=PP+1 : IFPP>ZTHEN600 

590  GOSUB680:PRINTC2$TAB( 8) "PLAYER 

NUMBER"F$PP; :PRINTC2$"UP 

NEXT":GOSUB640 

595  FORK= 1 T09 : POKEV+K , 0 : NEXT : A$= " " : 

SN$=" " ;B$=" " : PRINTC$ : RETURN 

6  00  PRINT : PRINT : PRINTC2$R0$TAB ( 4 ) 

"  PLAYER  NUMBER  "TAB(25)"  POINTS 

": PRINT: PRINT 

6  05  F0RK=1T0Z:CC=K+1;P0KECL,CC: PRINT 

TAB ( 1 0 ) K ; : PRINTTAB ( 2  6 ) TP ( K ) : PRINT : 

NEXT 
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610  PRINTH$iFORK=lT022:PRINTD$; sNEXT 

:PRINTC4$RO$TAB(12)"  PRESS  ANY 

KEY  " 
615  POKE198,0:WAIT198,1:POKE198,0: 

RD=RD+1 ! PP=0 ! IFNU=1THENGOSUB700 : G 

OTO510 
620  GOT0585 

630  REM:  ***TIME  DELAY  SUBROUTINE*** 
640  FORT=lTO1500;NEXTiRETURN 
650  REM:  ***RANDOM  SUBROUTINE*** 
660  N=INT(20*RND(0))+1:RETURN 
670  REM;  ***CENTER  SUBROUTINE*** 
680  PRINTH$;F0RK=lT015iPRINTD$; :NEXT 

: RETURN 
690  REM:  ***BORDER  SUBROUTINE*** 
700  PRINTC$ : POKECL, 7 : FORK=1024TO1063 

:POKEK,S:NEXT:FORK=1024TO1984 

STEP40:POKEK,S 
705  NEXT:FORK=1063TO2023STEP40: 

POKEK,S:NEXT:FORK=1984TO2023! 

POKEK , S : NEXT : RETURN 
725  DATAO,16,0,0,56,0,0,85 
730  DATAO, 0,146, 0,1, 17, 0,2 
735  DATA56,128,5,85,64,8,146,32 
740  DATA17,85,16,34,56,136,127,255 
745  DATA252,34,56,136,17,85,16,8 
750  DATA146,32,5,85,64,2,56,128 
755  DATA1,17,0,0,146,0,0,84 
7  60  DATAO, 0,56, 0,0, 16, 0,0 
7  65  DATAO, 0,0, 0,0, 0,0,0 
770  DATAO, 0,0, 0,0, 0,0,0 
775  DATAO, 0,0, 0,240, 0,0, 127 
780  DATAO, 0,63, 254, 0,31, 255, 255 
785  DATA63, 254, 0,127, 0,0, 254,0 
7  90  DATAO, 0,0, 0,0, 0,0,0 

7  95  DATAO, 0,0, 0,0, 0,0,0 
800  DATAO, 0,0, 0,0, 0,173, 21 

805  DATA192,141,22,192,120,169,24,141 
810  DATA20,3,169,192,141,21,3,88 
815  DATA96,5,0,20,0,0,206,22 
820  DATA192,208,61,173,21,192,141,22 
825  DATA192,173,33,208,41,15,141,20 
830  DATA192, 160, 0,1 32, 25 1,16 9,  21 6, 133 

8  35  DATA252,238,23,192,173,23,192,41 
840  DATAl, 170, 177, 251, 41, 15, 205, 19 
845  DATA192,240,5,205,20,192,208,5 


BACKGAMMON  (PLUS/4) 

by 
unknown 

This  one  for  the  Plus/4  will  give  you  a  very 
challenging  game  of  Backgammon.  I  swear  that 
as  I  was  playing  my  usual  best  and  very  close  to 
totally  gammoning  the  computer,  that  it 
cheated,  rolling  doubles  several  times  in  a  row. 
(I  still  won.)  I've  played  computer 
Backgammon  before  but  never  felt  quite  as 
challenged  as  I  did  with  this  one. 

100  CT=2048:COLORO,1 

110  L$="[39  SPACES] ":A=RND(0) 

120  PRINT"[CLR][CYN][7  DOWN] "TAB( 14 ) 

'■  BACKGAMMON ":  PRINTTAB  ( 1 4  )"£££££££  £ 

££" 
130  INPUT" [2  DOWN]  WILL  I  GO  FIRST 

[2  SPACE] Y[ 3  LEFT]";MF$ 
140  DIMB(25):DIMR(3):DEFFNR(X)= 

INT(RND(X)*6)+1 
150  DEFFNP(X)=CT-( (X- (X>6 ) )*40+Y) * 

(X<13)-({26-(X+(X<19) ))*40-Y-l)* 

(X>12) 
160  DATA  2,0,0,0,0,-5,0,-3,0,0,0,5,-5, 

0,0,0,3,0,5,0,0,0,0,-2 
170  F0RX=1T024:READB(X):NEXTX 
180  PRINT "[ CLR ][ RVON ] [GRN] 

[15  SPACES] BACKGAMMON 

[15  SPACES]"; :F0RX=1T012 
190  PRINTCHR$(64+X); "[RVOF] [BLK] 

[38  SHIFT  Q]";CHR$(89-X); 
200  IFX=6THENPRINT"[3  SPACE]BAR 

[3  SPACE] [RVOF] [BLK] 

[22  SHIFT  Q] [GRN] [RVON] 

[3  SPACE] BAR [3  SPACE]"; 
210  NEXTX:PRINT"  [RVOF] [38  C=  P] 

[RVON]  "; 
220  PRINT "[ RVOF ][YEL] PLAYER  [SHIFT 

Q](4  SPACES) [BLU] 

COMPUTER  [SHIFT  Q]" 
230  FORX=lTO24;IFB(X)=0THEN270 
240  Z=ABS(B(X)):IFZ>10THENZ=10 
250  F0RY=1T0Z 


310 
320 

330 
340 

350 


850  DATA189, 19, 192, 145, 251, 200, 208, 234260  POKEFNP(X ) , 86 . 5-SGN(B(X) ) /2 :NEXTY 
855  DATA230,252,165,252,201,220       270  NEXTX :X=1 : Z=CT+310 

,208,226  280  IFX<7ANDX<=B( 0 jTHENPOKEZ, 86 : Z=Z-1 

860  DATA76,49,234,52  !X=X+1 :GOTO280 

290  X=l:Z=CT+289 

300  IFX<7ANDX<=-PBTHENPOKEZ,87;Z=Z+l 


360 

370 
380 
390 
400 
410 
420 

430 
440 
450 
460 
470 
480 
490 
500 
510 

520 

530 
540 

545 

550 
560 
570 
580 
590 
600 
610 
620 

630 
640 
650 
660 
670 
680 


690 
700 
710 


:X=X+l:GOTO300 
GOSUB1180 ;GOSUB1150: PRINT" [CYN]"  ; 
IFLEFT$(MF$,1)="N"THENPRINT" 
PLAYER  "; :GOTO340 
PRINT "COMPUTER  "; 
PRINT"ROLL";  :  IF 
F$="DR"ORT$="DRAW"THEN360 
R(0)=FNR(X) :R(1)=FNR(X) :R(2)=0: 
R(3)=0:IFR(0)=R(1 )THENR(2 )=R(  1 ) : 
R(3)=R(1) 

FORX=0TO3iIFR(X)>0THENPRINT" 
[RVON]";CHR$(R{X)+48) ;"[RVOF]"; 
NEXTX: PRINT 

IFLEFT$(MF$,1 )="N"THEN830 
PRINT"THINKING. . . [UP] " 
OB=0 : FORZ=0TO18 ; IFB( Z )>0THEN420 
NEXTZ:0B=1 

H=0 ; HP=0 ! HR=0 : FORY=0TO3 : X=0 : 
IFR(Y)=0THEN580 
E=0 

IFB(X)<lORR(Y)+X>25THEN57  0 
IFX=0ANDB(X)>OTHENE=E+128 
IFX+R(Y)=25THENE=E+64 
IFB(X)=lANDB{X+R(Y))=lTHENE=E+32 
IFB ( X ) 02ANDB { X+R ( Y ) ) >0THENE=E+1 6 
IFB(X+R(Y) )=-lTHENE=E+8 
IFX<19THENE=E+4 
IFB(X+R(Y) )<-10R(OB=0 
AND(X+R(Y))=25)THEN570 
E=E+1:IFY=30RX+R(Y)=25  OR 
B(X+R(Y))>0THEN560 
Z=Y+1 

QA=0 : IFR( Z )>OANDX+R( Y ) -R( Z )>-lAND 
X+R(Y)-R(Z)<25THEN  QA=1 
IFQA=1THENIFB(X+R(Y)-R(Z) )>OTHEN 
E=E+2:GOTO560 
Z=Z+1:IFZ<4THEN540 
I FH<ETHENH=E : HR=R ( Y ) : HP=X 
X=X+1;IFX<25THEN430 
NEXTY 

IFH<128ANDB(0)>0THEN680 
IFH>0THEN700 
LR=7:FORY=0TO3 
IF 

R(Y)<LRANDR(Y)>1THENLR=R(Y) :LN=Y 
NEXTY :IFLR=7THEN6 80 
FORX=0TO25-LR:IFB(X)>0THEN680 
NEXTX ;X=26-LR 

IFB(X)>0THENR(LN)=25-X;GOTO400 
X=X+1:IFX<25THEN660 
PRINT" [2  DOWN] [6  SPACES] [RVON] CAN 
NOT  MOVE  -  PRESS  A 
KEY[RVOF]":MF$="N" 
GETA$:ON-(A$="")GOTO690:GOTO310 
FORX=0TO3 : IFR(X )<>HRTHENNEXTX 
R(X)=0 
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720  IFB(HP)<11ANDHP>0THENY=B(HP) : 

POKEFNP(HP),0 
730  B(HP)=B(HP)-liZ$=CHR$(HP+HR+64)  I 

IFHP+HR>24THENZ$="OFF" 
740  X$=CHR$(HP+64):IFHP=0THENX$="BAR" 
750  PRINT "MOVE  FROM  ";X$;"  TO  ";Z$ 
760  IFB(HP+HR)=-1THENPB=PB-1; 

B(HP+HR)=0iIFPB>-7THEN 

POKECT+288-PB,87 
770  IFHP=0ANDB(0)<8THEN 

POKECT+310-B(0),0 
780  Y=B(HP+HR)+1:B(HP+HR)=Y 
790  IFHP+HR<25ANDY<11THEN 

POKEFNP ( HP+HR ) , 8  6 : G0T08 1 0 
8  00  IFB(25)=15THENGOSUB1150iPRINT"I 

WIN. "sGOTO  1190 
810  FORX=0TO3:IFR(X)>0THEN390 
820  NEXTX: PRINT "[HOME] 

[7  D0WN]"SPC(14)"[RV0N]PRESS  A 

KEY" :MF$="N" :GOTO690 
8  30  F$="@"!PRINT"MOVE 

FROM" ; : IFPB<OTHENPRINT 

"  BAR"!HP=25:F$="Y"iGOTO880 
8  40  INPUTF$:r$=LEFT$(F$,2):IFF$="N0" 

THENMF$="":GOTO310 
850  IFF$="DR"THEN180 
860  IFF$<"A"ORF$>"X"THEN1140 
870  HP=ASC(F$)-6  4:IFB(HP)>=0THEN1140 
880  T$="@":INPUT"[8  LEFT]TO" ;T$ : 

HP=ASC ( F$ ) -6  4 : HR=ASC ( F$ ) -ASC ( T$ ) 
890  IFT$="NO"THENMF$="":GOTO310 
900  IFT$="DRAW"THEN180 
910  X=0!lFT$="OFF"THENHR=HP 
920  PRINTL$; "[UP] [RIGHT]"; 
9 30  FORX=0TO3 : IFHR<>R( X ) THENNEXTX ; 

ON-  (  HROHP ) GOTOl  140 
940  OB=X:IFHR<>HPTHEN990 
950  Z=HP+l:FOROB=0TO3!lFR(OB)=HP 

THENZ=7!GOTO970 
960  IFR(OB)<HPTHENNEXTOB!GOTO1140 
970  FORX=ZTO24:IFB(X)<0THEN1140 
980  NEXTX 

990  IFB(HP-HR)>1ANDHP<>HRTHEN1140 
1000  QA=0!lFB(HP-HR)>OANDHP<>HRTHEN 

B(HP-HR)=0:B(0)=B(0)+1:QA=1 
1010  IFQA=1ANDB(0)<7THENPOKE 

CT+311-B(0),86 
1020  Y=-PB;M=7:Z=CT+288+Y:PB=PB+l 
1030  IFHP<25THENPB=PB-l!Y=-B(HP) : 

B(HP)=B(HP)+1:Z=FNP(HP) :M=11 
1040  IFY<MTHENPOKEZ,0 
1050  IFHP=HRTHEN1100 
1060  Y=B(HP-HR)-l:B(HP-HR)=Yi 

IFB(HP-HR)>10THEN1120 
1070  Y=-YiZ=FNP(HP-HR) 
1080  IFY<11THENP0KEZ,87 


PRG 


1090  GOTO  1120  312 

1100  P0=P0+1  320 

1110  IFPO=15THENGOSUB1150iPRINT"YOU    330 

WIN.":GOTO  1190  340 

1120  R(OB)=0;FORX=0TO3:IFR(X)>0THEN830  350 
1130  NEXTX :MF$="":GOTO310  360 

1140  PRINT "ILLEGAL  MOVE 

[ 12  LEFT] [UP] " ;L$ ; " [UP] " ;GOTO830 
1150  POKE205, 16: PRINT 
1160  F0RX=1T05 ; PRINTL$ ; NEXTX : PRINTL$ ; 
1170  POKE205, 16: PRINT: RETURN 


REM  WAIT  FOR  A  KEY  TO  EXIT 
GETA$ : IFAS=" "THEN320 
PRINT" [CLR]": END 
DATA  WHITE, RED, CYAN, PURPLE 
DATA  GREEN, BLUE, YELLOW 
DATA  ORANGE, BROWN, LIME, PINK 


CIRCLES  (CI 6,  Plus/4) 

by 
unknown 


COLOR  TEST  (C16) 

by 
S.M.B. 

This  program  for  the  C16  and  Plus/4  will  put  a 
full  spectrum  grid  on  your  screen  displaying  the 
powerful  TED  chips  luminosity  capabilities. 
This  program  is  great  to  assist  in  adjusting  your 
monitor's  display. 

100  REM  COLOR  TEST  BY  -  SMB 

110  COLOR  0,1:COLOR4,1:REM  BORDER  AND 
SCREEN  BLACK 

112  REM  PRINT  THE  COLORED  SQUARES 

120  PRINT" [CLR]", • 

130  FOR  LUM  =  7  TO  0  STEP  -1 

140  FOR  COL  =  1  TO  16 

150  COLOR  1, COL, LUM 

160  PRINT  "[RV0N](2  SPACES) [DOWN] 
[2  LEFT][C=P][UP]"; 

170  NEXT  COL 

180  PRINT "[DOWN]" 

190  NEXT  LUM 

200  COLORl,2,3 

202  REM  PRINT  THE  DIAGONAL  LINES 

210  FOR  I  =  0  TO  15 

220  PRINT" [HOME] [16  DOWN] "TAB(2+2*I ) 
"[SHIFT  M] [DOWN] [SHIFT  M] [DOWN] 
[SHIFT  M] [DOWN] [SHIFT  M][DOWN] 
[SHIFT  M] [DOWN] [SHIFT  M][DOWN] 
[SHIFT  M] [DOWN] [HOME]" :NEXT 

222  REM  PRINT  THE  COLOR  NAMES 

230  COLOR  1,2 

240  FORI  =  1  TO  15 

250  PRINT" [HOME] [16  DOWN] "TAB (1+2*1 ) ; 

260  READ  C0$ 

270  FOR  J  =  1  TO  LEN(C0$) 

280  PRINT  MID$(C0$,J,1)"[D0WN]"; :NEXT 

29  0  NEXT 

300  PRINT "[ HOME ]";:F0RI=7  TO  0  STEP  -1 

310  PRINTTAB(32)"LUM"I:PRINTTAB(32)" 
[5  C=  T]":NEXT 


This  program  draws  14  circles  on  the  screen  and 
fills  them  in.  But,  that's  not  all.  Don't  run  this 
one  when  you're  sleepy  and  have  things  to  do 
because  you  won't  do  them.  Maybe  we  should 
call  this  one  the  Twilight  Zone  extra! 


10  GRAPHIC  3,1: REM  MULTICOLOR  GRAPHICS 
20  COLOR  0,1: COLOR 

4 , 1 ! COLORl , 1 : C0L0R2 ,3,2: 

COLORS, 10, 3  !C=1:CL=3 
30  F0RI=5  TO  70  STEP  5 

35  C=C+1:IFC=4THENC=2:REM  INCREMENT 

COLOR 

3 6  IFC=2THENCOLOR2 , CL , 3 : CL=CL+1 : REM 

CHANGE  TO  NEXT  COLOR 
40  CIRCLE  1,80,100,1,1+30 
50  LOCATE  +0,+2 
6  0  PAINT  C,,1:REM  FILL  IN  CURRENT 

CIRCLE 


FUNCTION  KEYS  (VIC  20) 

by 
unknown 

Make  defining  your  VIC20's  function  keys  a 
breeze  with  this  short,  but  powerful  utility. 
Quotes  are  accepted  with  no  problems.  This  is 
an  important  addition  to  any  serious  VIC 
programmer's  library. 


5  F=0:C=PEEK(55)-120:IFC<0THEN 

C=C+256:F=-1 
1 0  D=PEEK ( 5 6 ) +F : P0KE5 5 , C : POKES 6  ,  D ;  CLR 
15  S=828: 1=146 iGOSUBlOO 
20  DATA32, 198, 3, 165, 55, 133, 251, 133, 

253,165,56,133,252,133,254,169,49, 

133,0,169 
25  DATA133,133,1,169,13,32,210,255, 

169,70,32,210,255,165,0,32,210,25 
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,169,61  1 

30   DATA32,210,255,169,63,32,210, 

255,169,32,32,210,255,32,207,255,  2 

72,160,0,165 
35  DATAl, 145, 55, 104, 32, 198, 3, 201,     3 

13,240,14,201,95,208,2,169,13,145 

,55,32 
40  DATA207,255,76,124,3,230,0,16  5,0, 

41,1,208,10,24,165,1,105,4,133,1  4 
45  DATA  76,170,3,56,165,1,233,3,133, 

1,165,0,201,57,144,163,120,169, 

L0,141  5 

50  DATA  20, 3, 169, HO, 141, 21, 3, 88, 169,0, 

133, 0,32, 68, 198, 76, 116, 196, 166, 55 6 
55  DATA  208,2,198,56,198,55,96 
60  S=PEEK(55)+256*PEEK(56):I=119:      7 

GOSUBIOO 
65  SYS(828) 
70  DATA165, 0,240, 59, 160, 0,177, 251,    8 

32,  L99,  HO,  17  6, 12, 165,  55, 197,  251, 

208,21,165 
75   DATA56, 197, 252, 208, 15, 169, 0,133,        9 

0,165,253,133,251,165,254,133, 

252,76,191,234 
80   DATA   166,198,177,251,157,119,2,230,10 

198, 32, Llll, HO, 165, 198, 201, 11, 

144,204,230,0 
85   DATA   76, 191, 234, 165, 215, 32, L99, HO, 

176,3,76,191,234,165,8,41,1,208, 

247,160 
90   DATA   0,177,251,197,215,208,6,32, 

Llll, HO, 76, L6, HO, 32, LI 11, HO, 76, L8 

1, HO, 201  14 

95   DATA   133,144,6,201,141,176,2,56,96,15 

24,96,16  6,251,208,2,198,252,198,2 


SS=24!POKE36879,63:POKE3687  8,15: 

DIMJS(2,2) 
PRINT" [ CLR ] " I PRINTSPC ( 5 ) : 

PRINT"*************" :PRINTSPC(5) 
PRINT"* *[RVON]UFOPILOT[RVOF]**": 

PRINTSPC( 5 )"*************"; PRINT 

"[5   SPACE]* [2    SPACE]7-28-82 

[2    SPACE]*" 
PRINTSPC(5) iPRINT"*************": 

PRINT" [DOWN] (6    SPACES) BY   BUD 

BANIS " ; SPC ( 8 ) ; "BOURBONNAIS , ILL. 
PRINT"[3    D0WN][2    SPACE]SET   DIRECTION 


33   POKE36876,0 

35    POKE7680+FF,46:POKE38400+FF,1 

4 0    FF=FF+AD 1 1 FFF< 4 4THENFF=QQ : G0T09 500 

42    IFPEEK(7680+FF)=62THEN9500 

45  IFPEEK(7680+FF)=46THEN9500 

46  POKE7680+FF,88:POKE38400+FF,9 

47  IFFF=XZTHEN9500 

50    IFFF>505THENFF=QQ!GOTO9500 

55  BL=(255-INT(ABS(XX+22*YY-FF)/2) 

OR128) 

56  POKE7680+XZ,32:IFPEEK(7680+ZX)=88 

THEN9500 


OF  ":PRINT"[4  SPACE]SHIP  WITH  THE"58  POKE7680+ZX, 62 : POKE38400+ZX, 9 
POKE37139,0:DD=37154:PA=37137;       59  POKE36874, BL:POKE36874 , 0 

PB=37152:PRINT"[5  SPACE] JOYSTICK"  70  GOTO30 
PRINT" [DOWN] [2  SPACE]DON'T  RUN  INTO  100  DATA-23, -22, -21 , -1 ,0, 1 , 21 , 22, 23 
YOUR": PRINT" [4  SPACEjOWN  TRAIL  OR  8000  SC=SC+1 :XX=XX+1 : IFXX=22THENXX=0: 
HIT"  YY=INT(FF/22) 

PRINT" [5  SPACE]THE  WARPLAHE . "        8020  RETURN 

:PRINT"[2  D0WN][4  SPACE]HIT  FIRE   9000  POKEDD, 127 :S3=- ( (PEEK(PB)AND128 )= 

0) ; POKEDD, 255 
9010  P=PEEK(PA);Sl=-( (PAND8)=0); 

S  2= ( ( PAND 1 6 )  =  0 ) : S0= ( ( PAND4 ) =0 ) 
9020  FR=-( (PAND32)=0) :X=S2+S3 : Y=S0+S1 : 
RETURN 


TO  START 
FORAA=0TO2l!POKE7812+AA,88: 
POKE38532+AA, 9;GOSUB9000 
IFFRTHEN19 
IFAA=10THENFORTY=0TO15 : 


POKE36878,150R16*TY:POKE36874,  244: 9500  POKE36879, 138 :POKE36877, 220: 


11 
12 

13 


FORM=lTO50:NEXT:NEXT 
POKE36878,15 
POKE36874,234+AA!POKE36874,0: 

POKE7812+AA,32;NEXT;CS=SSAND7 
FORAA=0TO21:POKE77  01-AA,60; 

POKE38421-AA,9:POKE78  78+AA,62 


51,96 
100   F=0:FORD=STOS+I:READA$:IF 

ASC(A$)<58THENA=VAL(A$):GOT0115 
105   IFASC(A$)=76THENA= 

VAL(RIGHT$(A$,LEN(A$)-1) )+ 

PEEK ( 55 ) : IFA>255THENA=A-256 : F=l 
110    IFASC(A$)=72THENA= 

VAL(RIGHT$(A$,LEN(AS)-1) )+ 

PEEK(56)+F:F=0 


UFO  PILOT  (VIC  20) 

by 
Bud  Banis 

Arcade  action  for  the  VIC20,  using  the  VIC's 
redefinable  character  set  for  near-sprite 
animation.  Don't  run  into  enemy  ships  or  your 
own  exhaust  trail  or  you  will  meet  certain 
death.  Enjoy! 


16 

17 

18 
19 

20 

22 

24 

29 
30 

31 
32 


POKE7680+FF, 42 ; FORZZ=lTO100 
9510  POKE38400+FF,ZZAND15:POKE36878, 

INT(15-ZZ/7) :NEXT;POKE36877,0 
9520  XX=0: RESTORE :POKE368 79, 57: 

POKE36878,15 
9530  G0T02 

POKE38598+AA,9:GOSUB9000:IFFRTHEN19  10000  PRINT" [ HOME ] [RVON] [ 15  SPACES]" 
POKE36874,215:FORTT=lTO40:NEXT:  : PRINT" [HOME] [RVON] [ 2  SPACES] 

POKE36874,0;POKE36875,255-5*AA         SCORE=" ;SC; " [ 2  SPACE]" 
FORTT=lTO10:NEXT:POKE36875,0:       10010  PRINT"[HOME] [DOWN] [RVON] PREVIOUS 

POKE7  878+AA,32:POKE77  01-AA,32:NEXT     HIGH  =  ";  PH : RETURN 
PS=8+16*INT(SS/8)+CS:POKE36879,PS 

: SS=SS+1 : IFPS=255THENSS=0 
G0T09 
FORI=0TO2 : FORJ=0TO2 : READJS ( J, I ) i 

NEXTJ,I 
FF=505:PRINT"[CLR] [RVON] 

[45  SPACES]" 
XX=0  :AD=0 ;  GOSUBIOOOO  :  IFSOPHTHEN 

PH=SC 
POKE7680+FF,88:FOKE38400+FF,9: 

GOSUB9000:IFJS(X+l,Y+l)=0THEN24 
SC=0:YY=22:GOSUB10000 
GOSUB9  000:GOSUB8000:QQ=FF:XZ=ZX: 

ZX=XX+22*YY 
PRINT" [HOME] [RVON] [15  SPACES]" 

: PRINT "[HOME] [RVON] [2  SPACE] 

SC0RE=";SC;"[2  SPACE]" 
IFJS(X+1,Y+1)THENAD=JS(X+1,Y+1): 

POKE36876,220 
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TipeRite 


When  entering  these  programs  in, 
there  are  a  couple  of  things  to  keep  in 
mind. 

1)  All  program  lines  start  with  a 
number.  If  a  line  in  the  listing  does 
not  have  a  number  at  the  beginning 
that  means  it  is  a  continuation  of  the 
previous  line. 

2)  Be  sure  to  type  the  line  just  as  you 
see  it.  If  there  is  more  than  one 
consecutive  space  it  is  represented  by: 
[x  SPACE]  where  x  is  the  number  of 
spaces. 

3)  If  you  see  any  brackets,  [],  these  tell 
you  that  the  information  inside  it  a 
certain  key  on  your  key  board,  i.e. 
[CLR]  means  the  clear  key.  These  are 
found  only  in  strings  inside  quotes, 
i.e.  PR1NT"[CLR1  HELLO."  If  there  is  a 
number  followed  by  a  key  name,  then 
you  press  that  key  that  many  times, 
i.e.  PR1NT"[2  HOME]"  means  to  press 
the  home  key  twice. 

4)  JVIultiple  key  combinations  are  also 
listed  this  way.  i.e.  [SHIFT  2]  means 
to  press  and  hold  the  shift  key  and 
press  the  2  key.  Also,  [2  SHIFT  2] 
means  to  press  the  shift  2  key 
combination  twice. 

5)  The  abbreviations  used  this  month 
for  the  keys  are  not  our  standard 
notation.  Unfortunately,  Scot  had 
used  the  translation  his  printer 
interface  produced  and  I  didn't  realize 
it  until  too  late.  The  translations  are, 
however,  fairly  logical  and  easy  to 
interpret. 


PRG 


Here  they  are  and  what  they  mean: 


as  they  appear 

normally  used 

what  they  mean 

[UP] 

[crsr  up] 

type  cursor  up 

[DOWN] 

[crsr  down] 

type  cursor  down 

[RIGHT] 

[crsr  right] 

type  cursor  right 

[LEFT] 

[crsr  left] 

type  cursor  left 

[BLU] 

[Ctrl  7] 

type  <control>  <7>  for  the  color  blue.  All 
colors  are  fairly  similar.  <C=>  is  used 
to  access  some  colors. 

[RVON] 

[rvs  on] 

type  <control>  <9>  to  turn  on  the  reverse 
video 

[RVOF] 

[rvs  off] 

type  <control>  <0>  to  turn  off  the  reverse 
video 

[SPACE] 

[space] 

type  <space> 

[CLR] 

[CLR] 

type  <shift><clr/home> 

[HOME] 

[HOME] 

tj^e  <home> 

6)  Be  sure  to  check  the  introductions  for  any  additional  instructions  that  may 
not  be  in  the  program. 

7)  Check  to  make  sure  that  the  program  will  run  on  your  system.  The  C64 
programs  will  also  run  on  the  CI 28  in  C64  mode.  Also  note  that  neither  VIC20 
program  works  with  the  VIC  Emulator.  And  none  of  the  C16  or  Plus/ 4 
programs  run  on  the  CI 28,  although  PRGs  on  the  Spinner  may. 

READY. 


The  Spinner  is  the  companion  disk  that  goes 
with  the  Flyer.  The  programs  in  the  PRG  section 
are  found  on  tlie  Spinner.  Programs  found  within  the 
pages  of  the  Flyer,  liJce  those  found  in  PAPSAW,  will 
also  be  found  on  the  Spinner.  The  Spinner  also  has 
programs  that  were  too  long  to  appear  in  the  pages  of  the 
Flyer. 

The  Spinner  is  not  a  stand  alone  product.  It  is  NOT  a 
magazine  on  disk.  At  present,  it  has  no  operating  system  (although 
we  have  one  in  the  works  that  will  run  on  ail  machines).  It  was 
originally  intended  to  be  for  those  who  don't  like  to  type  in 
program. 

While  it  will  always  fill  that  bill,  it  is  growing.  We  are 
installing  text  files  on  future  Spinners,  whenever  there  may  be  some  confusion 
as  to  what  a  program  does.      In  the  mean  time  —  when  in  doubt,    read  PRG. 

This  month's  Spinner  is  a  two  disk  set,  featuing  the  PRG  found  here, 
the  programs  listed  on  page  23  and  morel  The  Spinner,  P.O.Box  392,  Boise,  ID, 
83701-0392.      $5   —   U.S.    funds,    $8    —   Canadian   funds. 
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